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FOREWORD 



This reference manual is designed to introduce Series 21 programming personnel to the 
MOBOL programming language. Familiarity with Series 21 components as well as a general 
knowledge of computer programming principles are assumed throughout. 

This publication consists of 8 major sections which are described below: 

Section 1 presents an overview; it describes the function of the MOBOL compiler and pre- 
sents the basic structure of a MOBOL source program. 

Section 2 outlines the procedures involved in generating a MOBOL source program. 

Sections 3 through 6 define the four main components of MOBOL source code and all 
respective statements. 

Section 7 discusses Input/Output operations. 

Section 8 discusses STATION Input/Output operations. 

Other publications which may be of interest to the reader are: 

MDS Series 21 Operator's Guide (Form No. M-2611) 

MDS Series 21 System Generation User's Guide (Form No. M-3922) 

MDS Series 21 Display Messages Reference Manual (Form No. M-3925) 

MDS Series 21 Binary Synchronous Communications Reference Manual (Form No. M-3921). 

These publications can be obtained through your local MDS representative, or from Mohawk 
Data Sciences Corp., Palisade Street, Herkimer, N.Y. 13350 (attention: Distribution Dept. 
374). 

Questions and comments related to the content of this publication should be submitted on the 
Reader Comment Form located in the back of this publication. 
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INTRODUCTION 



This manual defines Mohawk Data Science's MOBOL (Mohawk Business Oriented Language). 
MOBOL programs are developed by users of Series 2 1 Distributed Data Processing Systems to 
perform data entry, data verification, data validation and transaction processing. 

MOBOL is a relatively free-form high level programming language designed to meet the needs of 
an operator-interactive environment. In this environment, the operator communicates 
interactively with the system through a keyboard and a video display screen (CRT). Using the 
keyboard, the operator enters data or makes selections in response to the programmed 
prompts displayed on the screen. Based on the data entered or the selection made, the program 
carries out a pre-programmed series of steps. This cycle continues until all data has been 
entered and all required selections are made. 

Using MOBOL, A Series 21 System may be directed to perform the following functions: 

STATION HANDLING 

• Prompting 

• Accepting data 

• Verifying data 

INPUT/OUTPUT 

• Data recording 

• Data retrieval 

• Record update 

• Report printing 

DATA HANDLING 

• Compare 

• Arithmetic 

• Logical 

• Edit 

• Move 
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MANUAL NOTATIONS 

Conventions used to represent statement formats throughout this manual are described below. 
A sample statement is shown. 

1. UPPER CASE words and punctuation characters must be coded exactly as shown in the 
statement formats. 

2. { } are known as Braces. Braces enclose two or more statement elements where one and 
only one of the elements must be selected. 

3. Spaces are not considered to be significant except when delimited in a literal. 

4. [ ] are known as brackets. Any element enclosed in brackets is optional to the statement . 

5. ... are known as Horizontal Ellipses. 

are known as Vertical Ellipses. Ellipses indicate that the elements or statements may 
'. be repeated on subsequent lines. 

6. Scripts 1, 2, . . ., n or 1, 2, . . ., m are used to: 

a. indicate the number of subsequent elements that will follow; 

b. indicate distinctions of unique elements of the same type. 



^EOM: 
PRINT (lOD-name, buffer, ERR:sn-l J !>sn-2) 

'EOF: 



Sample MOBOL statement 
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SECTION 1: OVERVIEW 



Once a distributed processing application for Series 21 is identified, the following steps are 
performed: 

1. Gather information regarding application requirements. 

2. Analyze requirements and produce system block diagrams. 

3. Produce detailed flowchart of program steps. 

4. Translate steps of the flowchart into MOBOL source statements (see Figure 2-2 of Section 
2 for a sample of the MOBOL Coding Form). 

5. Transcribe the resulting MOBOL program to DISKETTE. For exceptionally large appli- 
cations, multiple diskettes may be required to hold the source program. (A data entry pro- 
gram may be used for this operation.) 

6. Compile the source program using the MOBOL Compiler. 

MOBOL COMPILER 

A source code statement is not directly executable; i.e., it is not in a form readily understood by 
the Series 21 System hardware. To be executed by the computer, a MOBOL source program 
must be translated by the compiler into an object program. An object program is a series of 
instructions especially designed for machine decoding. Using MOBOL, a programmer expres- 
ses a problem in a language he readily understands; the resulting source program is then trans- 
lated by the compiler into the object language that the system understands. Compilation of 
MOBOL source language into object language is performed only once since the object program 
can be re-executed as often as required. The compilation process is diagrammed below in 
Figure 1-1. 



OBJECT 
PROGRAM 



SOURCE 
PROGRAM 



MOBOL 
COMPILER 



NOTES 



Figure 1-1 Compilation Process 

The compiler produces an object file and a NOTES file. The object file is the primary compiler 
output; it contains the compiled object program. The NOTES file contains summary 
information about the compilation; also, it contains notes about detected errors (if any), which 
are called diagnostic messages. 
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A MOBOL source program and/or its NOTES file may be printed using the MOBOLIST utility 
program. A sample listing from the MOBOLIST utility is presented in Figure 1-2. Detailed 
explanation of MOBOLIST is presented in Appendix C of this manual. 



M 


BOLIST LEVEL7.0 


TITLE: 


0013. 


I0D: 


KSTATION = STATION; 




0014. 


IOD: 


INPUT = DISKETTE 




0015. 




DATASET = "MASTER0T 




0016. 




UNIT = 2; 




0017. 








0018. 


I0D: 


QUTPUT = PRINTER 




0019. 




UNIT = 1; 




0020. 








0021. 


RCD: 


WORKAREA 




0022. 




TYPE (1) 




0023. 




DATA (127); 




0024. 








0025. 


KET : 


DISPLAY 




0026. 




CRTSIZE r 480 




0027. 




BLANK = CRT SIZE 




0028. 




RELEASE = AUTOMATIC 





0029. 
0030. 
0031. 
0032. 
0033. 
0034. 
0035. 
0036. 

0037. 
0038. 
0039. 
0040. 
0041. 
0042. 
0043. 
0044. 
0045. 
0046. 
0047. 
0048. 
0049. 
0050. 
0051. 
0052. 

0053. 
0054. 

0055. 
0056. 
<END> 



START 
10, 



110, 



120, 
130, 



200, 
201, 



END 



(3,2) 'PRINT/SELECT UPDATE RECORDS' 

(4,2) '1 - LIST ALL' 

(5,2) '2- LIST UPDATES' 

(6,2) '3 - SIGN OFF' 

(7,2) 'SELECTION:' 

(7,14) SELECTION (1,N); 



RENTER (KSTATION, DISPLAY) 

IF (SELECTION, CONTAINS, :30 STOP 

IFNOT ('12', CONTAINS, SELECTION) RESUMERR 

OPEN (INPUT, WORKAREA, ERR: 200) 
OPEN (OUTPUT, WORKAREA, ERR:200) 

READ (INPUT, WORKAREA, EOF:200, ERR:200) 
GO (SELECTION) 130, 130, 120 

IFNOT (TYPE, CONTAINS, :U:) GO: 110 

PRINT (OUTPUT, WORKAREA, E0M:110, ERR:200) 
G0:110 

CLOSE (INPUT, WORKAREA, ERR: 201) 
CLOSE (OUTPUT, WORKAREA, ERR: 10) 
GO: 10 



PRINT/SELECT UPDATE RECORDS 



KEY STATION 
DISKETTE FILE 
DATASET NAME 
DRIVE 2 

PRINTER OUTPUT 
DEFAULT PRINTER UNIT 

BUFFER 

FIRST CHARACTER 

ALL THE REST 

SCREEN DISPLAY 
BIG SCREEN 
BLANKS ENTIRE SCREEN 
'ENTER' NOT REQUIRED 
PROMPT MESSAGE 
PROMPT MESSAGE 
PROMPT MESSAGE 
PROMPT MESSAGE 
PROMPT MESSAGE 
FIELD ENTRY 

BEGIN CODE SECTION 
DISPLAY 
END PROGRAM 
DISALLOW BAD CHARS 

OPEN BUFFER FILE 
OPEN PRINT FILE 

READ INPUT 

BRANCH ON SELECTION 

NOT UPDATE: RECYCLE 

PRINT, IGNORE EOM 
CYCLE 

CLOSE, IGNORE ERRS 
CLOSE PRINTER 
CYCLE 

END OF SOURCE FILE 



Figure 1-2: MOBOLIST Sample Listing 
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SOURCE PROGRAM STRUCTURE 

A MOBOL source program has two major sections: 

1) A Data Definition Section; 

2) An Execution Section. 

Data definition statements occur in the Data Definition Section and define each data element to 
be processed by the program. All data definition statements must be in the Data Definition 
Section. Complete information on constructing data definition statements is presented in 
Section 5. 

Execution statements occur in the Execution Section and define the processing steps to be 
applied to the data elements. All execution statements must be in the Execution Section. 
Complete information on constructing execution statements is presented in Section 6. 

In addition to data definition and execution statements, there are comment statements and 
compiler directives which may appear in both sections of a MOBOL program. Comment 
statements are used to provide program documentation and annotate the source listing. 
Compiler directives are used to delimit the Execution Section (START and END) and control 
the program source listing (TITLE and EJECT). Comments and compiler directives are 
documented in Sections 3 and 4, respectively. 
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SECTION 2: CONSTRUCTING A MOBOL SOURCE PROGRAM 



After analyzing the application and creating a flowchart of the processing logic, a MOBOL 
program may be produced by following the sequential steps outlined below: 

1. Determine required screen displays for the application and create a layout of these displays 
using the Series 21 CRT Screen Layout Form. (See discussion on designing screen displays 
presented below.) 

2. Generate MOBOL source code. Include coding for screen displays. A MOBOL coding 
form is provided by MDS to assist the programmer when writing the MOBOL source. 

3. Enter the source, via the STATION keyboard, into the Series 21 System. 

DESIGNING SCREEN DISPLAYS 

It is recommended that Series 21 CRT Screen Layout Form be used when designing the format 
and content of the screen display. A sample form is presented in Figure 2-1. 



G5M. 


SERIES 21*CRT SCREEN LAYOUT FORM 
FOR WO AND 1920 CHARACTER SCREEN FORMATS 
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.f Mohawk Data Sciences Co.p., Patslppany, N.J. 07054 Mohawk Daia Sciences-Canada, LTD Register 



© = Denotes attribute position. 



Figure 2-1: Screen Layout Form 



Data may be presented in either the 480 or the 1920 character display. Error messages (if any) 
presented during program execution are normally displayed on line 2 of the screen. Therefore, 
when an error message is presented, any data appearing on line 2 will be temporarily displaced. 

Every guide message is preceded by an attribute byte which uses one character space on the 
CRT screen. This space must be reflected in the source code. For example, if a guide message 
appears on the screen on line 3, beginning in column 3, the layout would be coded (3,2). 
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GENERATING MOBOL SOURCE 

The compiler accepts source programs recorded on DISKETTE as one or more datasets. The 
diskette records (sectors) are input in sequence so that the source program is recorded in 
proper sequence. 

Each diskette sector may contain one line of source. A line of source may be one of the following: 

1. One comment statement. 

For example: 

*THE INPUT ROUTINE FOLLOWS 
^(Column 1) 

2. One entire compiler directive. 

For example: 

EJECT 

3. One entire clause of a multi-clause data definition statement. 

For example: 

MASK(12) = '$$,$$$V.99CR' 

4. One entire execution statement. 

For example: 

EDITFIELD = PICTURE (FIELD, MASK) 

5a. The beginning of a data definition clause of an execution statement. 

For example: 

IF (TOTAL HOURS hO) 

5b. A continuation of a data definition clause of execution statement. 

©OVERTIME = OVERTIME + 1 
^(Column 1) 

(where the beginning of the statement is illustrated in 5a.) 



In this manual, the format of a clause or a statement is presented as a line of source as illustrated 
in Steps 1-4 above, (that is, a printed line of format corresponds to a complete line of source). 

The rules are given in this section so that long clauses and statements can be recorded as 
illustrated by Steps 5a and 5b above. 

A MOBOL program is written on MOBOL coding forms for ease and accuracy of transcription 
to DISKETTE. Accordingly, the requirements for writing a line of source are described below in 
terms of columns on a coding form. 
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MOBOL compiler directives, data definition and execution statements may be written in 
columns 1-59 of the coding form. However, most programmers follow a formatting convention 
(such as beginning any statement number of an execution in column 1 and beginning the 
remaining part of the statement in column 10) to align statements for clarity. 

When a clause or statement requires more than 59 positions available on a single line, multiple 
lines are used to record the entire clause or statement. The first line is the beginning line and 
subsequent lines are continuation. 

A continuation line is recognized by the appearance of a plus (+) in column 1 of the current line 
or by a delimiting comma (,) on the previous line. 

When the "plus method" is used, the plus character is discarded and columns 2-59 are used as 
continuation for the previous line. With the exception of strings, basic syntactic elements must 
not be split between lines. The basic syntactic elements that must not be split are: 



• Fill Designators (e.g., :*:) 

• Comparators (e.g.;<=) 



When a string is split, it is important to consider the fact that column 2 of the continuation line 
immediately follows column 59 of the previous line and not the last non-blank column of the 
previous line. 

When the "comma method" is used, columns 1-59 of the line are used as continuation for the line 
terminated with the comma. 

The "comma method" may be employed only with a comma which is a part of the syntax; that is, 
a comma may not be inserted merely to signal continuation. 

When both methods are employed simultaneously, the "plus method" prevails; that is, only 
columns 2-59 are used for continuation. 

Comment statements may appear anywhere within the source program. There are two formats 
for comment statements. The first format requires an asterisk (*) in column 1, of the coding 
form, with the remainder of the statement containing description information or all blanks. The 
second format requires all blanks in columns 1-59 of the coding form, with the remainder of the 
statement containing descriptive information or all blanks. 



DATA DEFINITION SECTION REQUIREMENTS 

1. Data definition statements are composed of multiple clauses, the first of which begins 
with an identifying header and the last of which ends with a semicolon (;). The indi- 
vidual clauses occurring between the header and semicolon terminator must be coded 
according to the rules associated with the specific type of data definition statement 
header (IOD, RCD, KET or EQU). 

2. Individual clauses which constitute a data definition statement are to be distinguished from 
continuation lines. Continuation is employed in a data definition statement only when an 
individual clause requires more than 59 columns available on a single line. 
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EXECUTION SECTION REQUIREMENTS 

1. The Execution Section begins with the compiler directive START which must be positioned 
within columns 1-59 of the coding form. (See Section 4 for a detailed discussion of compiler 
directives.) 

2. The Execution Section is concluded with the compiler directive END which must be posit- 
ioned within columns 1-59 of the coding form. 

3. Individual execution statements must be coded according to the format appropriate to the 
statement as covered in Section 6. 

4. Execution statements may have none, one or several statement numbers (see Figure 1-2, 
line 37). Statement numbers are used to branch from one execution statement to another. 
The compiler associates each statement number with the first execution statement which 
follows the statement numbers. 

a. Each statement number must be followed by a delimiting comma (,). 

b. Statement numbers must be unique when regarded as a decimal number (for example, 
32 is equivalent to 0032 and, therefore, would not be considered unique). 

c. Generally, 3 or 4 digits are used for statement numbers. However, up to 32 digits may 
be used, if desired. 

Figure 2-2 is an example of a MOBOL coding form completed during development of the sample 
program shown in Figure 1-2. 
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Figure 2-2: MOBOL Coding Form 
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SECTION 3: COMMENT STATEMENTS AND COMMENT FIELDS 

COMMENT STATEMENTS 

The following rules apply: 

1. An asterisk (*) is written in column 1 with text (or all blanks) written in columns 2-128. 

2. All blanks in columns 1-59 with text (or all blanks) in columns 60-128. 

Comment statements may be inserted wherever desired. However, they may not appear within 
a data definition statement. 

COMMENT FIELDS 

Comment fields can be placed in columns 60-128. These will be printed on the same line as a 
source MOBOL statement without actually being within the statement. Comment fields may 
appear in columns 60-128, adjacent to any line. 
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SECTION 4: COMPILER DIRECTIVES 



There are four MOBOL compiler directives which provide the compiler with control 
information during compilation. These directives are presented in logical order. 
Compiler directives do not produce object code or affect other MOBOL source 
statements. 



TITLE 

Purpose: 

Format: 
Description: 



To cause a top-of-form and print the title on a source listing when 
using MOBOLIST. 

TITLE: Up to 53 characters. 

TITLE causes an immediate top-of-form to occur in a printed listing 
of source statements. It establishes up to 53 characters to be printed on the 
top line of the first and any subsequent pages until a new TITLE directive is 
encountered. Several TITLE directives may be used in a source listing for 
documentation clarification. TITLE can appear between any two 
statements. 



Example: 



TITLE: PRINT/SELECT UPDATE RECORDS 



EJECT 

Purpose: 



To eject a page when printing a source statement listing when using 
MOBOLIST. 



Format: 



EJECT 



Description: EJECT causes an immediate top-of-form (eject a page) to occur in a printed 

listing of source statements. The most recently established title is printed at 
the top of the new page. EJECT can appear between any two statements. 

Example: EJECT 
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START 

Purpose: 



Format: 



Description: 



To mark the beginning of the Execution Section. 
START 

START begins the Execution Section. 



Example: 



DATA DEFINITION SECTION 



START 



EXECUTION SECTION 



NOTE: 



END 



1. All data definition statements must precede the START 
statement. 

2. All execution statements must follow the START statement. 



END 

Purpose: 



Format: 



Description: 



Example: 
NOTE: 



To mark the END of the Execution Section. 

END 

END signifies the end of the execution statements and concludes 
compilation. 

See example for START 

Every program must contain an END statement and END must be 
the last statement in the program. 



4-2 



SECTION 5: DATA DEFINITION STATEMENTS 

Data definition statements establish data elements and the names by which these data elements 
can be referenced. Names (IOD-names, RCD-names, INDEX-names, KET-names, and EQU- 
names) must be chosen according to the following rules: 

1. The first character must be alphabetic. 

2. Each subsequent character (if any) must be either alphabetic or numeric. 

3. Space characters may be interspersed to improve readability. 

4. The number of significant characters must not exceed 32. 

5. The name must not be a reserved name (listed in Appendix B). 

6. The name must not be defined earlier within the Data Definition Section. 

The following are examples of valid names: 

T 

ACCOUNT 
P0LICY2 
BIN NUMBER 



The following are examples of rule violations: 

@BAT 

TEN% 

TH I SNAME I SMUCHTOOLONGTOBEPERM I TTED 

READ 

TWICE DEFINED 

TWICEDEFINED 



(Violates rule 1) 
(Violates rule 2) 
(Violates rule 4) 
(Violates rule 5) 
(Valid name) 
(Violates rule 6) 



The last two examples illustrate that spaces relate only to readability; that is, the missing space 
in the last example does not make the name different from the preceding example. 
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There are four types of data definition statements in MOBOL: 

1. The IOD statement designates access information for Input/Output operations. The IOD 
statement also designates an IOD-name that may be used to reference all of the associated 
access information* or may be used to formulate a reference to a particular access 
parameter. 

2. The RCD statement designates a record area as a collection of individual fields. The RCD 
statement also designates an RCD-name and field names that may be used to reference the 
entire record area and its individual fields. The RCD statement may also designate an 
INDEX-name. 

3. The KET statement designates a record area and control information specific to entry, 
verification and display of the record data. The KET statement also designates a KET-name 
and field names that may be used to reference the entire record area and its individual fields. 
The record area and the control information are collectively referenced when the KET- 
name is used with the entry/verify operations. (The control information cannot otherwise 
be referenced by the program.) 

4. The EQU statement designates one or more EQU-names that may be used for parameter 
passing within the Execution Section. An EQU-name may be made equivalent to a data item 
so that the EQU-name may be referenced instead of the original item. An EQU-name may 
be made equivalent to a sub-field of another data item to allow access to varying length fields 
or records. 

A data definition statement consists of multiple source statements, each of which contributes a 
certain amount of related parametric information. The format of each source statement and the 
number of source statements required for data definition depends upon the number of 
parameters to be established within the data definition statement. 

All data definition statements must be terminated by a semicolon (;) placed at the end of the last 
source statement. The placement of the semicolon is important; it ensures that subsequent 
individual source statements are not mistaken to be additional parametric information. 



*this block of information is a set of system provided parameters or specifications for access to 
the data contained in the file named by the IOD. 
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THE INPUT/OUTPUT DESCRIPTOR STATEMENT 



IOD 

Purpose: 



Format: 



To define a File Control Block (FCB) of access information (to be used with 
Input/Output operations). The IOD is a data definition statement which is 
required for each dataset accessed by execution statements. 

IOD: IOD-name = device 
iod-specif ication- 1 
iod-specification-2 



Description: 



iod-specification-n ; 

The components of this statement are: 



IOD-name The name used to reference the FCB or a specific 
parameter within the block. The IOD-name is used with 
Input/Output operations to identify the file to be oper- 
ated upon. 

device The type of device used for data transfer. 

Permitted selections are: 

DISK 

DISKETTE 

COMP CHAN 

PRINTER 

STATION 

TAPE 



Note: 

iod-specification 



The selection TAPE is also used for DATA RECORDER 

A keyword expression which assigns a particular 
parameter. The keywords that are used depend upon 
the device specification; for example, the specifi- 
cation: 



DATASET = 'ACCOUNTS' 
is valid for DISK and DISKETTE devices only. 
The keywords that may be used in the IOD statement are: 



ACCESS 


KEYBOARD 


SIGNIF 


UNIT 


BOUND 


KEYVALUE 


SLEW 


VOLUME 


DATASET 


MCSEQ 


STATE 




FILTER 


OPERATIONAL 


TARGET 
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In Section 6 the keywords are listed and defined. When a keyword is not 
explicitly assigned an initial-value, a default value is used. Most keywords 
have default values which correspond to normal use. Therefore, it is neces- 
sary to include iod-specifications only for those parameters whose defaults 
are unsuitable for the particular application program. A keyword that is 
available for reference in the Execution Section is referenced in the Exe- 
cution Section by concatenating the IOD-name and the keyword. 

For example: 

lOD-name.DATASET 

In the example above, the IOD-name identifies the block of information and 
DATASET identifies the specific parameter; in this case, the name of the 
dataset. 
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RECORD STATEMENT 

The RCD statement format can vary depending upon specific use. Therefore, for clarity, two 
main formats are presented: 

The first format is the basic form of RCD. It is used to define a record area and its fields. 

The second format is used to define an array of records (multiple records of the same format). 

Additional formats of the Record statement are presented in this section under the heading 
"RECORD REMAPPING". 



RCD 

Purpose: 

Format: 



To define a record area and its fields. 

RCD: RCD-name 

field-specification- 1 
field-specification-2 



field-specification-n ; 

Description: The components of this statement are: 

RCD-name The name used to refer to the entire record area estab- 
lished by the various field-specifications that follow. 

field-specification A clause which defines one field of a record area, its off- 
set and length. 

In the event that the individual fields are not related to each other, as when 
defining counters and intermediate result fields, RCD-name may be coded 
as a minus (-). When the RCD-name is coded as minus, reference to the 
overall record area (as a single data item) is not possible. 

A field-specification consists of two main parts: a name and a value. The 
name is used to reference the individual field and the value establishes the 
initial-value of the field. The initial-value is the contents of the field after 
program load and prior to program execution. 

Example: 

RCD: - 

DOLLAR LIMIT = 10000 
MESSAGE = 'LIMIT EXCEEDED'; 

The field DOLLAR LIMIT is the first field of the record and consists of five 
(5) positions. The field MESSAGE is the second field of the record and con- 
sists of fourteen (14) positions. In both cases, the size of the field is deter- 
mined by the number of positions appearing within the value. The value 
assigned to DOLLAR LIMIT is called a decimal number. The value 
assigned to MESSAGE is called an alphanumeric string. 
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Decimal Numbers 

A decimal number is a series of digits with an optional leading sign (+ or -). The value is taken as 
positive unless the minus (-) is explicitly coded. Space characters are not significant and may be 
interspersed to improve readability. 

Example: 

RCD: - 

LARGE = 50 000 
SMALL = 64 
MIDDLE = 24 966; 

The fields LARGE and MIDDLE are each five (5) positions and positive; field SMALL is two (2) 
positions and negative. Internally, the sign of a decimal number is carried in the unit's position 
along with the unit's digit. Having a sign does not increase the length of the resulting field. 

Alphanumeric Strings 

An alphanumeric string is a sequence of characters enclosed within quote (') characters. The 
enclosing quotes do not contribute to the length of the field. Space characters are significant and 
must be coded only when a space data character is desired. If a quote character is to be part of 
the string value, two contiguous quotes must be coded for each quote data character desired. 

Example: 

RCD: - 

UPPER = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 

LOWER = 'abcdefghi jkl mnopqrstuvwxyz ' 

NUMBERS = '123456789' 

RESPONSE = 'YOU' 'RE OK. ' ; 



The fields UPPER and LOWER are each 26 positions containing the alphabet in uppercase and 
lowercase, respectively. The field NUMBERS is ten (10) positions and contains the digit 
characters. The field RESPONSE is also ten (10) positions, even though eleven (11) characters 
are coded between the surrounding quotes. If RESPONSE is displayed on the CRT screen, it 
would appear as: 

YOU'RE OK. 
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Referencing Overall Record Areas 

An RCD-name must be designated when the overall record area is to be referenced. A field- 
name may be coded as minus (-) if there is no requirement to reference the field individually. 

Example: 

RCD: HEADER 

- = 'PAGE 1 
CURRENT PAGE = 00 

- = 'OF' 

TOTAL PAGES = 00; 

The field TOTAL PAGES is to contain the number of pages within the report and the field 
CURRENT PAGE is to be incremented for each new page. The record HEADER would be 
printed once per page; suitable coding in the Execution Section could be written to produce the 
following sequence of print images for a twelve-page report: 

PAGE 01 OF 12 
PAGE 02 OF 12 



PAGE 12 OF 12 

Note that two zero digits are necessary for the initial-value of CURRENT PAGE and TOTAL 
PAGES so that a sufficient number of positions are allocated to handle reports of up to ninety- 
nine (99) pages in length. 

Stating An Explicit Size For A Field 

An explicit size may be designated for a field. If the field is to be given a decimal number as an 
initial-value, the leading zeros do not have to be coded. The field length must not exceed 256 
positions, if the field is named. 

Example: 

RCD: HEADER 

- = 'PAGE' 
CURRENT PAGE(2) = 

- = 'OF' 

TOTAL PAGES(2) = 0; 

Because CURRENT PAGE has an explicit size of two (2) positions, the value is established by 
moving the initial-value into the field, from right-to-left, with leading zeros to fill the field. The 
same considerations apply to TOTAL PAGES. 
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Fill Characters And Alignment 

The fill character and the direction of filling may be designated, provided that the field is 
explicitly given a size. The fill character itself is coded between two colon characters and the 
resulting three characters are placed to the left of the initial-value for left-filling or the right for 
right-filling. Coding a fill character and omitting an initial-value designates that every position of 
the field is to be filled. 

Example: 

RCD: - 

LEFTFI LL(10)= :*: 'PAGE' 
RIGHTFILL(IO) = 'PAGE' :*: 
ALLFILL(IO) = :*: ; 

The effect of these definitions is listed: 

******PAGE 
PAGE****** 

j- J- J- J- J- J- J- J, j, j„ 

Large displacements for printing at the right margin may be indicated through the use of filling. 



ample: 




RCD: 


HEADER 




-(119) = : : 




- = 'PAGE' 




CURRENT PAGE = 00 




- = 'OF' 




TOTAL PAGES = 00; 


or: 




RCD: 


HEADER 




-(124) = : : 'PAGE' 




CURRENT PAGE = 00 




- = 'OF' 




TOTAL PAGES = 00; 



Either format would cause the page accounting information to appear to the far right of a full 132- 
position print line. Because of the choice of names, only one of the two examples could appear in 
a given program. 
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Offset Notation 

In all of the examples presented thus far, each field is placed within the record according to its 
order of definition; fields defined in this way are called sequential. Optionally, a field may be 
placed out of sequence using the offset notation; fields defined in this way are called non- 
sequential. 

Examples: 

RCD: HEADER: 

-(119,4) = 'PAGE' 
-(127,2) = 'OF' 
CURRENT PAGE(124,2) = 
TOTAL PAGES(130,2) = 0; 

For the offset notation, both the offset into the record and the size of the field are specified. The 
offset is coded first and represents the number of record positions to the left of the field being 
defined. 

Note that only ten (10) positions of the record are assigned an initial- value. No additional values 
are required in this case, since all records are created with space characters for those positions 
not explicitly assigned an initial-value. 

Fields Without Initial- Values 

When an initial-value is assigned to a field, the corresponding positions of the record are 
updated. When no initial-value is assigned, there is no effect on the corresponding positions of 
the record during compilation. 



Example: 




RCD: 


Fl (0,5) = 'AAAAA' 
F2(l,3) = 'BBB 1 
F3(2,l) = 'C 
FM0,3) > 



As the compiler processes each specification sequentially, the appearance of the record is 
shown below at the various stages of compilation: 



AAAAA 


(after Fl) 


ABBBA 


(after F2) 


ABCBA 


(after F3) 


ABCBA 


(after F4) 



Note that the first three positions of the record were not affected by the definition of field F4. 



5-9 



Alignment Without Filling 

An initial-value may designate that alignment without filling is required. In this case, the field 
positions that would normally receive a fill character are unchanged from their current value. 

Example: 
RCD: 



Fl (0,6) 

F2(l,4) 
F3(2,2) 



= 'AAAAAA 



B 



= 'C 



The two contiguous colons(::) signify that filling is to be suppressed. The appearance of the 
record is shown below at various stages of compilation: 



AAAAAA (after Fl) 

AAAABA (after F2 - only the fourth character 

is changed since the initial-value is 

only one character in length and 

right-justified. The fill characters are 

suppressed). 

AACABA (after F3 - only the third character is 

changed since the initial- value is 
only one character in length and left- 
justified. The fill characters are 
suppressed). 

NOTE: The above example is for illustrative purposes only and would not normally be found 
in an application program. 
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Sequential and Non-Sequential Fields 

Both sequential and non-sequential fields may be employed in defining a record. A sequential 
field always begins at the first record position after the previous sequential field. A non- 
sequential field begins at the designated offset and has no influence on the placement of the next 
sequential field. 

Example: 

RCD: - 

LAST NAME(15) = 'SMITH' : : 
FIRST NAME (15) = 'SAM' : : 
LAST INITIAL(OJ) ; 

or: 

RCD: - 

LAST INITIAL(OJ) 

LAST NAME (15) = 'SMITH' r : 

FIRST IN ITI AL(1 5, 

FIRST NAME (15) = 'SAM' : : ; 

Both examples produce equivalent records and fields. Note that in the second example, the 
placement of LAST NAME is not influenced by LAST INITIAL. Again, only one of the two 
examples could appear in a given program. 

A non-sequential field may overlap other fields within the record. 

Example: 

RCD: - 

LAST NAME(15) = 'SMITH' : : 
FIRST NAME (15)= 'SAM' : : 
I DENTI Fl ER(0, 1 6) ; 

The field IDENTIFIER includes all of the field LAST NAME and the first position of FIRST 
NAME. 

For some Input/Output related applications, certain fields of a data record are not significant to 
the application and therefore do not require individual identification. In such cases, an unnamed 
field may be required to create a sufficiently large record area. 

Example: 

RCD: MASTER 

TAX TO DATE (60, 7) 
-(0,128) ; 

This record is suitable for a selective copy of employee MASTER records based on certain TAX 
TO DATE criteria. The application is not specifically concerned with address information, 
salary, etc., but is obligated to provide room for this data so that it will be preserved on the 
output file. The unnamed field ensures that 128 positions are allocated for MASTER records. 
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Tables 5-1 and 5-2 present every variation of establishing a field and assigning its initial- value. In 
Table 5-1, the field name does not have an explicit size. In Table 5-2, the field length is specified. 



TABLE 5-1: ESTABLISHING FIELD SPECIFICATIONS 
WHERE FIELD NAME HAS NO SIZE SPECIFICATIONS 

Field-name 





EXAMPLE 


INTERNAL REPRESENTATION 


NO VALUE 
ASSIGNED 


A 


Contents not changed 
Contents=( -) 


VALUE ONLY 


A = 321 


Alignment right-to-left; 
No fill characters. 
Contents=(32l) 


VALUE/NO FILL 
CHARACTERS 


A = :: 'ABC 


Alignment right-to-left; 
No fill characters. 
Diagnostic message. 
Contents=(ABC) 


VALUE/FILL 
CHARACTERS 


A = :X: 'ABC 


Alignment right-to-left; 
No fill characters. 
Diagnostic message. 
Contents=(ABC) 


FILL CHARACTERS 
ONLY 


A = :X: 


Fill with specified fill character. 
Diagnostic message. 
Contents (X) 


EMPTY FILL 


A = :: 


Contents not changed. 
Diagnostic message. 
Contents=(-) . 



Where ( - ) = One byte of previously established data (normally a space character). 
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TABLE 5-2: ESTABLISHING FIELD SPECIFICATIONS 
WHERE FIELD NAME HAS A SIZE SPECIFICATION 

Field-name (n) 
Where n = field length 





EXAMPLE 


INTERNAL REPRESENTATION 


NO VALUE 
ASSIGNED 


A(3) 


Contents not changed. 
Contents=( ) 


VALUE ONLY 
value length < 
field length 


A(3) = 2 


Alignment right-to-left; fill after value 
length with decimal zero. 
Contents=(002) 


VALUE ONLY 
value length^ 
field length 


A(3) = 321 


Alignment right-to-left; no fill 
characters required. 
Contents=( 32 1 ) 


VALUE ONLY 
value length > 
field length 


A(3) - 4321 


Alignment right-to-left; truncate once 
field is full. 
Diagnostic message. 
Contents=(321 ) 


VALUE/NO FILL 
CHARACTERS 
value length < 
field length 


A(3) = :: 'A' 


Alignment right-to-left; remaining 
characters of field remain unchanged. 
Contents=(--A) 


VALUE/NO FILL 
CHARACTERS 
value length= 
field length 


A(3) = :: 'ABC 


Alignment right-to-left; no fill 
characters required. 
Contents=(ABC) 


VALUE/NO FILL 
CHARACTERS 
value length > 
field length 


A(3) - :: 'ABCD' 


Alignment right-to-left; truncate once 
field is full. 
Diagnostic message. 
Contents=(BCD) 


VALUE/FILL CHARS 
value length < 
field length 


A(3) - :X:'A' 


Alignment right-to-left; fill with speci- 
fied fill characters. 
Contents=(XXA) 


VALUE/FILL CHARS 
value length= 
field length 


A(3) = :X:'ABC ! 


Alignment right-to-left; no fill 
characters required. 
Contents=(ABC) 


VALUE/FILL CHARS 
value length > 
field length 


A(3) = :X:'ABCD' 


Alignment right-to-left; truncate once 
field is full. 
Diagnostic message. 
Contents=(BCD) 


FILL/CHARACTERS 
ONLY 


A(3) = :X: 


Fill with specified fill character 
Contents=(XXX) 


EMPTY FILL 


A(3) = :: 


Contents not changed. 
Diagnostic message. 
Contents=( ) 



Where ( ) = three bytes of previously established data. 
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Non-Graphic Fill Characters 

If a non-graphic character (one that does not appear on the keyboard) is required as a fill 
character, it must be expressed in terms of its hexadecimal representation. In this case, the two 
hexadecimal digits of the fill character are coded between the colons. 



Example: 






RCD: 


- 






ALL ONES (2) = 


:FF: 




ALL NULL (8) = 


:00: 



The field ALL ONES consists of two positions, or 16 bits; each bit is set. The field ALL NULL 
consists of eight positions, or 64 bits; each bit is clear. The left hexadecimal digit determines the 
leftmost four bits of the fill character and the right digit determines the rightmost four bits. The 
hexadecimal digits and their corresponding four-bit values are tabled as follows: 



Hexadecimal 


4-Bit 


Digit 


Value 





0000 


1 


0001 


2 


0010 


3 


0011 


4 


0100 


5 


0101 


6 


0110 


7 


0111 


8 


1000 


9 


1001 


A 


1010 


B 


1011 


C 


1100 


D 


1101 


E 


1110 


F 


1111 



Non-Graphic Hexadecimal Strings 

If a non-graphic string is required as an initial-value, it must be expressed as a hexadecimal 
string. In this case, two hexadecimal digits must be coded for each string character. All 
hexadecimal digits specified must be enclosed by quotes and preceded by an X. 

Example: 

RCD: - 

BINARY HUNDRED = X'6V 
BINARY THOUSAND = X'03E8' 
ALPHA THREE = X'Cl C2 C3 ' ; 

The field BINARY HUNDRED is one position in length and contains the binary representation 
of the number 100. The field BINARY THOUSAND is two positions and contains the binary 
1000. The field ALPHA THREE is three positions and contains the EBCDIC characters ABC 
(more typically this field would be defined as 'ABC'). Space characters are not significant and 
may be used to improve readability. 
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Composite String 

A string requiring a mix of graphic and non-graphic characters may be specified using a 
composite specification. A composite specification is a sequence of alphanumeric strings, 
hexadecimal strings and unsigned decimal numbers coded as applicable. 



Example: 




RCD: 


FILE COMMANDS 




- = 'UPDATE' X'01 ' 




- = 'DELETE' X'02' 




- = 'ADD ' X'OV 




- = ' INSERT' X'08' 




- = X'OO' ; 



The record FILE COMMANDS contains a sequence of individual (unnamed) fields. It may be 
searched to transform a file command into a bit mask for program interpretation. The null 
terminates the record ('COMMAND NOT FOUND' condition). In this example, each source 
line represents one transformation entry. This type of encoding facilitates the addition and 
maintenance of commands and provides clarity of the source program. 
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RCD Array 

Purpose: 

Format: 



To define an array of records so that multiple records of the same overall 
format are available for reference. 

RCD: RCD-name (INDEX-name, iterations) 
field-specification- 1 
field-specification-2 



Description: 



field-specification-n ; 

The components of this statement are: 



RCD-name 



INDEX-name 



iterations 



field-specification 



The name used to reference one record of the array. 
The field-specifications which follow establish the for- 
mat of the records. 

The name of the index variable used to select a par- 
ticular record of the array. When a reference to the 
array is made and a specific record number is not 
coded, the record implied by the current value of 
INDEX-name is used. 

The number of record occurrences within the array. A 
maximum of 100 may be designated. 

A clause that defines one field of a record in the array, 
its offset and length. Also, the initial-value of the field is 
defined for the first record. 

The various field-specifications establish field-names 
and field initial-values for the first element of the 
record array. The rules governing specification are 
identical to the ones described in the first format of 
RCD with the following exceptions: 

• An individual record of the array must not exceed 
256 positions. The entire array, however, may 
exceed 256 positions. 

• An individual record of the array must not be de- 
fined as having more than 255 named fields. 



Additional record areas are allocated so that the total number of records in the array 
corresponds to the iterations parameter. 

The index variable is defined as a two-position field with an initial-value of decimal zero. 
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During execution, the assignment of a value to INDEX-name selects an element of the array for 
implied references. The value zero selects the first element, one selects the second, etc. 
Accordingly, each value assigned to an index variable must be: 

• decimal; 

• greater than or equal to zero; and 

• less than the iterations parameter designated for the record. 



Example: 
RCD: 



RECORD (INDEX, 3) 
FIELDA(4) = 'ABCD 
FIELDB(2) = k\; 



The arrangement of record elements and their fields is shown below with explicit indexing 
notation used for identification. 



REC0RD(0){ 
REC0RD(1){ 
REC0RD(2){ 



A 


B 


c 


D 


4 


1 




b 


b 


b 


* 


b 


b 




Y> 


b 


b 


b 


h 


b 







FIELDA(O) 
FIELDB(O) 
FIELD A(l) 
FIELDB(l) 
FIELDA(2) 
FIELDB(2) 



Note that only the first iteration is assigned an initial-value. 
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THE KEY ENTRY TABLE STATEMENT 

KET 

Purpose: To define a record area and control information specific to entry, verifi- 

cation and display of the record data. 

Format: KET: KET-name 

context-specification- 1 
context-specification-2 



context-specification-n 
display-specification- 1 
display-specification-2 

• 

display-specification-m ; 

A variation of the above format for KET is presented later in this section 
under the heading "RECORD REMAPPING". 

Description: The components of this statement are: 

KET-name The name used to refer to the entire display 
record established by the various field-specifi- 
cations which follow. The name refers to both the 
display record and its control information when 
used with entry/verify operations. 

context-specification A clause that establishes a parameter associated 

with the overall KET. 

display-specification A clause that establishes either a field within the 

record area or a fixed guide message. 

The ordering of specifications within the KET is important: 

• context-specifications must follow the KET-header; and 

• display-specifications must follow the last context-specification. 

Context-Specification 

Context-specifications are used to adjust operational details of entry, verify and display 
activities associated with the KET. Each specification is coded as an individual keyword 
assignment clause. In these clauses, the keyword identifies the parameter and the assignment 
value identifies the option selected. 

A keyword specification may be omitted from the KET statement if its default value is 
appropriate. The ordering of the assignments is not significant, unless conflicting assignments 
are made to the same keyword. In this case, the last assignment prevails. 

The parameters and their options are discussed in the following paragraphs. 
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CRTSIZE 

The display size to be used when the KET is active may be 480 or 1920 characters. 

When 480 is selected, the display is configured to twelve (12) lines of forty (40) characters each. 
When 1920 is selected, there are twenty-four (24) lines of eighty (80) characters each. 
Regardless of the selection, the display position in the upper left corner is designated line one, 
column one (1,1). 

An application may have a mix of '480' KET's and '1920' KET's as required. 

The default value is 480. 

BLANK 

An area of the display to be cleared upon activation of the KET may be designated. 

CRTSIZE 



BLANK = vn \ //ii \ 
1(1 1 ,cc)/(l 1 ,cc) 

When CRTSIZE is selected, the entire display area is designated. When the second option is 
selected, the starting line column and the ending line column are explicitly coded. 

Example: 

BLANK = (6,0/(12,40) 

For a '480' KET, the bottom half of the display is cleared. 

The default value is computed by the compiler as the minimum extent required to clear the 
guide and field areas used by the KET. The keyword BLANK should not be omitted when a 
previous KET occupies more space on the screen, since data from this previous KET will remain 
in the subsequent display. 
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MODE 

Data fields of the KET are presented for entry/verify in their order of definition within the KET. 
When a KET is used for the creation of new data, the standard order of presentation cannot be 
superceded by the operator through the use of the cursor control keys. The MODE parameter 
designates the intended use of the KET. 

Data fields of the KET are presented for entry/verify in their order of definition within the KET. 
When a KET is used for the creation of new data, the standard order of presentation cannot be 
superceded by the operator. When a KET is used for updating existing data, the standard order 
may be superceded by the operator through the use of the cursor control keys. The MODE 
parameter designates the intended use of the KET. 



MODE: ^ F,ELD 

'SCREEN 



The FIELD option designates data creation and enables the use of the field positioning keys 
( \* — and — *| ) to move the cursor backwards or forwards (in order of definition) one field 
at a time. The SCREEN option designates data update and enables the use of the field 
positioning keys as well as the cursor positioning keys (f ^«— and — ► ). Each cursor 
positioning key moves the cursor one position on the screen, without regard to field ordering; a 
sequence of these keys may be used to place the cursor on any field requiring update. 

Other effects of selecting FIELD or SCREEN mode are described later, in Section 8. 

The default value is FIELD. 

NUMPAD 

The numeric keypad (when installed) may be used for entry of numeric data or for selection of 
application-defined functions. 



NUMPAD - ^™ 



The option determines whether input from the keypad is to be processed as numeric data by the 
entry/verify operations (DATA option) or is to be passed back for application-defined 
interpretation (ESCAPE option). Operational details associated with the ESCAPE option are 
covered in Section 8. 

The default value is DATA. 
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RELEASE 

When the end of an entry/verify operation is reached, the display data may be held for final 
operator review or released immediately for processing. 

RELEASE - S M ANUAL 
RELEASE - j AUT0MAT|C 



The AUTOMATIC option designates that the display data is to be released immediately for 
processing. The MANUAL option designates that the display data is to be held until the 
operator depresses the ENTER key. Errors detected during the review may be corrected prior 
to the depression of ENTER. 

The default is MANUAL. 

INIT 

When a KET is presented for the entry or the verify process^the first field to receive the cursor is 
determined by specific rules discussed in Section 8. 

IMIT (AUTOMATIC 
INIT= ESCAPE 



The AUTOMATIC option designates that the first field to be keyed is selected by the system. 
The ESCAPE option designates that a branch is to be taken to the application program before 
initial field selection. Operational details associated with the ESCAPE option are covered in 
Section 8. 

The default is AUTOMATIC 

TYPE 

Program-assigned value that is transcribed to the STATION IOD when the KET is activated. 
This one-byte parameter may be used to represent anything desired by the programmer. The 
format is: 

TYPE = initial-value 

If a decimal initial-value is specified, the range is 0-255. It is subsequently converted to binary 
representation. 

NOTE 

Program-assigned value that is transcribed to the STATION IOD when the KET is activated. 
This one-byte parameter may be used to represent anything desired by the programmer. The 
format is: 

NOTE = init ial -val ue 

If a decimal initial-value is specified, the range is 0-255. It is subsequently converted to binary 
representation. 
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Display-Specification 

Each display-specification designates either a fixed guide message (guide-specification) or a data 
field (field-specification). The field-specifications should be ordered in the desired entry/ verify 
sequence. The guide-specifications may occur in any order and may be interspersed with field- 
specifications. 

Guide-Specification 

A guide-specification designates one guide message which may be used to 
identify the overall display (title usage) or to identify a specific field (prompt 
usage). 

The format of a guide-specification is: 

(line, column, attribute) guide-text 

The components are: 

Line 

The line number on which the message attribute is to be placed. The range 
is 1 to 12 for a '480' KET and 1 to 24 for a '1920' KET. 

Column 

The column number in which the message attribute is to be placed. The 
range is 1 to 40 for a '480' KET and 1 to 80 for a '1920' KET. 

Attribute 

The parameter which designates a particular attribute byte that is to 
precede the guide message. The attribute byte occupies one display posit- 
ion, appears as a blank and influences the display of the characters which 
follow. 

Each attribute parameter and its effect on the display is listed below: 

S or SUPPRESS for suppressed; 

L or LOW for low intensity; 

LB or L0WBL INK for blinking, low intensity; 

R or REVERSE for reverse image; 

RBor REVERSEBLIN Kfor blinking, reverse image; 

H or H I GH for high intensity; 

HB or H I GHBL I NKfor blinking, high intensity. 

The default is LOW if the attribute and its preceding comma (,) are omitted 
in a guide-specification. 
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Guide-text 

The actual guide message text, is coded as an alphanumeric string (see 
example). The string is placed on the screen immediately following the attri- 
bute position and continuing to the right. 

The total number of display positions used is equal to the length of the 
string plus one (for the leading position occupied by the attribute byte). 

In the event of display line overflow, continuation begins on the first posit- 
ion of the next line. 

Example: 
KET: 



CRTSIZE = 480 



(3, 5, LOW) 'ACCOUNT: 






These fragments of a KET statement corresponds to the display results 
diagrammed below. 



1 2 3 k 5 6 7 8 9 10 11 12 13 



2 
3- 

5 




0ACCOUNT 



Low attribute byte at line 3, column 5 (displays as a blank) 
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Field-specification 

A field-specification establishes one field for data entry/display. Field- 
specifications may be interspersed with guide-specifications. The ordering 
of field-specifications governs the standard entry sequence. 

The format of a field-specification is: 

(line, column, attribute) field-name (position, shift, source, exit, verify) sn-post, sn-pre 

Line 

The line number on which the field attribute is to be placed. The range is 1 
to 12 for a '480' KET and 1 to 24 for a '1920' KET. 

Column 

The column number in which the field attribute is to be placed. The range is 
1 to 40 for a '480' KET and 1 to 80 for a '1920' KET. 

Attribute 

The parameter which controls the display of the field. The attribute 
appears as a blank position at the designated line and column with the field 
immediately following the attribute. Parameters are the same as those 
listed for guide-specifications. 

The default is HIGH. 

Field-name 

The name identifying the field within the record. Optionally, a minus (-) 
character may be coded in lieu of field-name when no direct program refer- 
ences to the field are required. 

Position 

Position designates the location and length of the field within the record. 
Also, it designates certain entry control information. The form for this para- 
meter is: 

field-offset, field-length/minimum/O 

The decimal number field-offset establishes the displacement of the field 
from the beginning of the record. The field-offset and its delimiting comma 
(,) may be omitted to designate that the field is to follow the last specified 
sequential field within the record. 

The decimal number field-length establishes the number of contiguous 
characters comprising the field. Specification of this parameter is 
mandatory. 
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The decimal number minimum designates the minimum number of signifi- 
cant data characters that must exist within the field before a field entry 
operation can be considered complete. The terminating phrase '/0' is 
optional. It designates that a field entry operation can be considered com- 
plete when the minimum number of significant characters are present or 
when no significant characters are present. If the entire phrase '/mini- 
mum/0' is omitted there is no constraint on the number of significant chara- 
cters within the field. 

Table 5-3 illustrates the interpretation of the significance parameters for a 
five-position field. 

Table 5-3: Interpretation of Significance Parameters 



Source Specification 


Number of Significant 




Characters in Field 


...,5/4/0,... 


0,4 or 5 


...,5/4,... 


4 or 5 


...,5,... 


0,1,2,3,4 or 5 


...,5/0,... 


0,1,2,3,4 or 5 


...,5/0/0,... 


0,1,2,3,4 or 5 



Shift 

Shift facilitates the entry of a specific class of characters (by minimizing the 
need to depress the shift keys). Also, it restricts the acceptable character 
class. The permitted values are: 



LETTER or L 



to facilitate the entry of upper 
case A-Z and to impose no actual 
restriction. 



DIGITor D 



to facilitate the entry of the digits 
0-9 and to impose no actual 
restriction. 



TEXT or T 



to facilitate the entry of lower 
case A-Z and to impose no actual 
restriction. 



NUMERIC or N 



to facilitate the entry of the digits 
0-9 and to restrict data to the 
digits 0-9. 



ALPHA or A 



to facilitate the entry of upper 
case A-Z- and to restrict data to 
upper case A-Z. 



The significance of L, D or T fields is determined by field-length less the 
number of leading and training spaces. The significance of Numeric fields is 
determined by field-length less the number of leading zeros. The signifi- 
cance of Alpha fields is determined by field-length alone. The default is 
LETTER for this parameter. 
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Source 

This parameter designates the conditions of allowed operator entry. The 
values are: 

KEY or K to designate that the field may be 

keyed whenever the cursor ari- 
ves at the field displayed. 

GENERATED or G to designate that the field has a 

program- generated initial-value 
which the operator seldom keys. 
The field may be keyed, however, 
if the cursor arrives at the field by 
means of a backspacing action, 
cursor positioning action or ex- 
plicit program direction. 

PROTECTED or P to designate that the field is pro- 
tected from operator entry un- 
less the cursor arrives at the field 
under explicit program direction. 

The default value for this parameter is KEY. 

Exit 

The exit parameter is specified if a particular field release key (or key class) 
must be used to signal the end of keying to initiate alignment. If no para- 
meter is coded, the field is automatically released when the rightmost posit- 
ion is correctly keyed. The field may be released prior to keying the right- 
most position as follows: 



Release 


Shift 


Action 


Key 






SKIP 


L.D.T 


Left align; space fill 


EXIT 


L,T 


Right align; space fill 


EXIT 


D,N 


Right align; zero fill 


- 


N 


Right align; zero fill; negate field 



(minus) 

The following parameters specify that a particular release key must be used 
(even after keying the rightmost position). 

SKIP or S to designate that the SKIP key must be used to release the field. If 
depressed at or prior to the rightmost position, the action is as tabled 
above. If depressed after the rightmost position, no alignment or filling is 
performed. 

EXIT or E to designate that the EXIT key (or - key) must be used to release 
the field. If depressed at or prior to the rightmost position, the action is as 
tabled above. If depressed after the rightmost position, no alignment or fil- 
ling is performed. 
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Verify 

Verify designates that the field is to be key-verified when a data verify oper- 
ation is active. VERIFY or V means verification is required. 

Ordering of the parameters shift, source, exit and verify is not important. 

sn-post, sn-pre 

These are statement labels which designate processing routines associated 
with the field. The sn-post routine is executed upon a field-release condition 
(all of the data has been entered for the field); the exit allows for 'post-pro- 
cessing' of the data to occur before the next field is selected for entry/ 
verify. The sn-pre routine is executed when the operator initiates field up- 
date (backspaces into a field); the exit allows for 'pre-processing' of the data 
to occur before the update actually proceeds. 

Post-processing is used for validation, calculating extensions and selecting 
fields out of normal sequence. Pre-processing is used for "backing-out" 
previous extensions, inhibiting field update and selecting fields out of 
normal sequence. 

The conditions under which these routines are executed is dependent 
upon the station operation and the MODE of the KET. These topics are 
covered in Section 8. 

Either or both labels may be omitted to designate that the corresponding 
form of processing is not required for the field. Ordering is important: if sn- 
post is omitted and sn-pre is present, the separating comma (,) must pre- 
cede the sn-pre label. 

The following fragments of field-specifications illustrate all coding com- 
binations: 

...) no exits 

...) 100 post exits only 

...) 100,200 both exits 

...) , 200 pre exit only 
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THE EQUATE STATEMENT 



EQU 

Purpose: 

Format: 



Description: 



To establish names that may be used as alternate reference names for 
records and fields. 

EQU: EQU-name-1, 
EQU-name-2, 

• 
EQU-name-n; 
or 
EQU: EQU-name-1, EQU-name-2,.. .EQU-name-n; 

Note: Commas are not required in the vertical syntax. 

An EQU statement establishes each EQU-name as a specialized data item 
having the following characteristics. 

• Defining an EQU-name does not cause the name to be associated with 
any particular data field; that is, no memory is allocated and no already 
allocated memory is re-used. 

• An EQU-name (and only an EQU-name) may appear as the "re- 
ceiving" parameter in a SAME or STRING execution statement. 
These statements cause the EQU-name to be assigned as an alternate 
reference name for a record, field, or portion of a record of field. 

• An EQU-name used elsewhere in the Execution Section, references 
the data area established by the last executed SAME or STRING 
statement that assigned the EQU-name. 
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RECORD REMAPPING 

The purpose of remapping is to re-use a previously specified record or field area with an alter- 
nate layout. One of the following formats may be used: 

1. RCD: RCD-name,REMAPS:previous 

field-specification- 1 
field-specification-2 

• 

field-specification-n ; 

2. RCD: RCD-name (INDEX-name, iterations), REMAPS:previous 

field-specification- 1 
field-specification-2 



field-specification-n ; 



KET: KET-name, REMAPS:previous 
context-specification-1 
context-specification-2 



context-specification-n 
display-specification- 1 
display-specification-2 



display-specification-m ; 

The new component introduced is: 

previous The designation of the previously defined record or field that is to be reused with 

an alternate layout. 

If format 1 or format 3 (above) is used, the area designated by "previous" must be of sufficient 
length to hold the entire record currently being defined. If format 2 (above) is used, the area 
designated by "previous" must be of sufficient length to hold the entire record currently being 
defined. If format 2 (above) is used, the area designated by "previous" must be of sufficient 
length to hold all iterations of the record being defined. 

The coding of "previous" is dependent upon the record or field that is being remapped and the 
remapping objectives. Three types of remapped records are distinguished: 

normal The record is 256 positions, or less, in length and is not iterated. A normal record 
may be defined by a KET or RCD. 

extended The record is 257 positions, or more, in length (and therefore is not iterated). An 
extended record may be defined by a KET. 

indexed The record is iterated (and each iteration, therefore, has 256 or fewer positions) . 
The total number of positions for all iterations is not limited to 256 positions. An 
indexed record is defined only by an RCD array. 
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REMAPPING A NORMAL RECORD 

A normal record may be remapped by coding "previous" as follows: 

• Record- name to remap the entire record; 

• Record-name" also to remap the entire record; or 

• field-name to remap a single field of the record. 

The syntax Record-name-' has little significance for a normal record. It is allowed for a normal 
record, however, for convenience when recoding or updating source code. For example, the 
syntax Record-name ■* was used to name an extended record and if this record is changed to a 
normal record, the syntax Record-name" need not be changed. 

Example: 

RCD: RECORD 



FIELD 



length 256 positions, or less 



The diagram below illustrates the layout of RECORD as a point of reference with individual 
shaded layouts to depict the areas that may be remapped by a subsequently defined RCD or 
KET. Corresponding results would occur if the example were a KET. 



r 



Record 
Layout 



Effect Of The 
REMAPS Option 



RECORDS FIELD 



V. 







BB 


■ 


■■ 




i 


k " T 







REMAPS: FIELD 
REMAPS: RECORD^ 

REMAPS: RECORD 
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REMAPPING AN EXTENDED RECORD 

An extended record may be remapped by coding "previous" as follows: 

• Record-name to remap the first 256 positions; 

• Record-name^ to remap the entire extended record; or 

• field-name to remap a single field of the record. 



Example: 

RCD: RECORD 



\ 



FIELD 



> length 257 positions, or more 



;) 



The diagram below illustrates the layout of RECORD as a point of reference with individual 
shaded layouts to depict the areas that may be remapped by a subsequently defined RCD or 
KET. Corresponding results would occur if the example were a KET. 



RECORD <( 





Record 
Layout 


I 
1 


Effect Of The 
REMAPS Option 












> 256 positions 
















i 


k * 


-REMAPS: RECORD 
-REMAPS: RECORD 
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The diagram below illustrates the field level option for RCD and KET remapping. 



Record Effect Of The 

Layout REMAPS Option 



REC0RD< FIELD 




REMAPSrFIELD 



REMAPPING AN INDEXED RECORD 

An indexed record may be remapped by coding "previous" as follows: 

• RCD-name to remap the first iteration of the record; 

• RCD-name (index) to remap a specific, fixed iteration of the record; 

• RCD-name "to remap all iterations of the record; 

• field-name to remap a field within the first iteration of the record; or 

• field-name (index) to remap a specific, fixed iteration within the record. 
Example: 

RCD: RECORD (INDEX, 3) 



FIELD 



The diagram on the following page illustrates the layout of the three RECORD iterations as a 
point of reference with individual shaded layouts to depict the areas that may be remapped by a 
subsequently defined RCD or KET. 



5-32 



r 



Record 
Layout 



Effect Of The 
REMAPS Option 



RECORD (0)V FIELD (0) 



r 



RECORD (1)< FIELD (l) 



r 



RECORD (2)< FIELD (2) 



V_ 



REMAPS: RECORD 

REMAPS: RECORD (0) 

REMAPS: RECORD (l) 

REMAPS: RECORD (2) 

REMAPS: RECORD* 




^REMAPS: FIELD (2) 

REMAPS: FIELD (1) 

REMAPS: FIELD (0) 
REMAPS: FIELD 
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SECTION 6: EXECUTION STATEMENTS 

Execution statements indicate the processing steps to be applied to the data elements that are 
defined in the Data Definition Section. Execution statements may have none, one or several 
statement numbers. These numbers are used to branch from one execution statement to another. 
Specific rules governing the use of statement numbers and the coding requirements for execution 
statements are included in Section 2 of this manual. 

Execution statements may be grouped into ten functional categories: 

1. Move statements— move the contents of one field to another. These statements do not edit or 
manipulate the characters within the sending field. To prevent data truncation, the receiving 
field must be at least as long as the sending field. The programmer can also specify the 
alignment of data within the field; in addition, he may specify a fill character for excess 
positions in the receiving field. The Move statements are: 

MOVE LEFT AND FILL 

MOVE RIGHT AND FILL 

FILL 

MOVE LEFT, NO FILL 

MOVE RIGHT, NO FILL 

2. Decimal Arithmetic Statements — perform arithmetic calculations on decimal numbers. The 
Decimal Arithmetic statements are: 

DECIMAL EQUATE 
DECIMAL ADD 
DECIMAL SUBTRACT 
DECIMAL MULTIPLY 
DECIMAL DIVIDE 

3. Binary Arithmetic Statements — perform arithmetic calculations on binary numbers. The 
Binary Arithmetic statements are: 

BINARY ADD 
BINARY SUBTRACT 
BINARY MULTIPLY 
BINARY DIVIDE 

4. Boolean Statements — perform "logical" operations upon fields at the bit level. The Boolean 
statements are: 

AND 

OR 

XOR (Exclusive OR) 
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5. Editing Statements— allow the programmer to alter the representation, format and alignment 
of fields. The Editing statements are: 

BINARY 
DECIMAL 
JUSTIFY LEFT 
JUSTIFY RIGHT 
PICTURE EDIT 
CURRENCY 
NUMBER EDIT 
TRANSLATE 
COMPRESS 
DECOMPRESS 
HEX 
UNHEX 

6. Control Statements— control the flow of program execution, either conditionally or uncondi- 
tionally. The Control statements are: 

UNCONDITIONAL GO 

STOP 

CONDITIONALS 

COMPUTED GO 

CASE 

ERROR TEST 

7. Subroutine Statements— delimit and direct execution of a subroutine. A subroutine is a group 
of statements performing a specific function that may be performed as often as necessary. The 
subroutine is coded only once, eliminating repetitive statements. It may be accessed from 
anywhere within the Execution Section of the program. The Subroutine statements are: 

PERFORM 

ENTRY 

EXIT 

8. I/O Statements — direct Input/Output operations. I/O operations transfer data between 
the application program in main memory and the I/O device. Also, I/O statements control 
the I/O device. The I/O statements are: 

OPEN 

CLOSE 

READ 

WRITE 

CHECKEOD 

DELETE 

FREESPACE 

INSERT 

READLOCK 

READNEXT 

RELEASE 

SETEOD 

BACKSPACE 

MARK 

REWIND 

REWINDLOCK 

SKIPFILE 

CHECKFORMS 

PRINT 

SETFORMS 

SENDEOF 



9. STATION I/O Statements — provide the necessary interface between the operator and the 
application for data entry, validation, and display. The STATION I/O statements are: 

KENTER 

KVERIFY 

RESUME 

RESUMERR 

ERROR 

NOTIFY 

READSCREEN 

READKEY 

10. Special Purpose Statements — perform specialized funcitons to enhance application program 
capability. The Special Purpose statements are: 

CHECKDIGIT 

GETTIME 

SETTIME 

SAME 

STRING 

SYNTAX CONVENTIONS 

A format is presented with each statement in this section. Each statement must be coded according 
to its format. Listed below are conventions (additional to the ones stated in Manual Notations) 
associated with these formats. 

1. The notations :X: and :Y denote any EBCDIC character delimited by colons. Two coding 
representations are permitted: graphic or hexadecimal. In the graphic representation, the 
single character between colons is used as an EBCDIC character. In the hexadecimal 
representation, two hexadecimal characters between the colons specify one EBCDIC charac- 
ter. (See "Non-Graphic Fill Characters" in Section 5.) 

2. The notation sn represents a statement number. It indicates that a statement number will be 
specified to reference the associated statement. 

3. The character A indicates the primary receiving field of an operation. Valid substitutions for 
this character are: 

EQU-name 

INDEX-name 

IOD-name • keyword 

KET-name 

KET-field-name 

RCD-name 

RCD-field-name 

4. The characters B and C denote a source field for an operation. Valid substitutions for this 
character are: 

EQU-name 

INDEX-name 

IOD-name 

IOD-name .keyword 

KET-name 

KET-field-name 

literal 

RCD-name 

RCD-field-name ^ o 



5. The character D denotes the secondary receiving field of an operation. Valid substitutions for 
this character are identical to those listed for character A. 

6. The term EQU-name denotes the primary receiving field of an operation when the receiving 
field must be a data item defined by the EQU data definition statement. 

7. The term buffer may be any one of the following. A buffer designates that the reference is not 
limited in size. 

EQU-name 

KET-name 

KET-field-name 

RCD-name 

RCD-field-name 

KET-name" 

RCD-name « 

literal 

8. Symbols A, B, C, D and buffer shown in the statement formats are presented for descriptive 
clarity. They do not require that separate fields be individually substituted. For example, the 
actual statement COUNT =COUNT+l is compatible with the format A=B+C called out for 
the DECIMAL ADD statement. 

9. All fields denoted by the symbols A, B, C, and D are processed up to a maximum of 256 bytes 
unless otherwise specified in the individual statement descriptions. 

10. The unary minus may be applied to numeric literals (e.g.,-21) as shown in Table 6-1. The 
unary minus must not be used with non-numeric literals (e.g., -ABC) or field-names (e.g.,- 
COUNT) unless explicitly permitted in the individual statement descriptions. 

11. The exception exit shown in a statement format may be coded as EOF (end-of-file), EOM 
(end-of-medium), or ESC (escape). All three notations are equivalent. 

12. Ordering of the exception exit and ERR exit, within a format, is not significant. 

13. Either or both abnormal exits may be omitted. The preceding comma (,) must also be omitted 
in these cases. 
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SEMANTICS CONVENTIONS 

INTERPRETATION OF LITERAL VALUES BY INSTRUCTION TYPE 

Operations deal with fields containing character strings and/or numbers. 

A non-numeric literal (character string) is processed by using the exact value stated in the literal. 

A numeric value is processed in one of two ways, depending upon the type of instruction specified. 
When a decimal oriented instruction is used, the value stated is coded directly as a literal and the 
compiler automatically creates a field containing the designated decimal value. When a binary 
oriented instruction is used, the value stated is converted to binary representation. The compiler 
then creates a field containing the converted binary value. An instruction that does not appear to 
be binary or decimal is treated as a decimal oriented instruction. 

Table 6-1 illustrates the interpretations of character strings and numeric values made by the 
compiler. 

Table 6-1: INTERPRETATION OF LITERAL VALUES BY INSTRUCTION TYPE 



Decimal 

Oriented 

Instruction 


NUMERIC 


NON-NUMERIC 
Hexadecimal, com- 
posite or Alpha- 
numeric Strings 


Unsigned 


Signed 


1000 


+ 1000 


-1000 


'ABCD' 


Internal 
Represen- 
tation = 

Fl FO FO FO 


Internal 
Represen- 
tation = 

Fl F0 F0 F0 


Internal 
Represen- 
tation = 

Fl F0 F0 DO 


Internal 
Representation = 

CI C2 C3 C4 


Binary 

Oriented 

Instruction 


NUMERIC 


NON-NUMERIC 

Hexadecimal, com- 
posite or Alpha- 
numeric Strings 


Unsigned 


Signed 


1000 


+1000 


-1000 


'ABCD' 


Internal 
Represen- 
tation = 

03E8 


Internal 
Represen- 
tation = 

03E8 


Diagnostic 
Message 


Internal 
Representation = 

CI C2 C3 C4 



NOTE: Numeric literals employed in any of the binary class of statements must be s* and 
« 16,383 

Example: A ■ ADD (99, C) 
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INDEXED DATA REFERENCES 

When an indexed RCD-name or indexed RCD-field-name is to be referenced, the specific 
iteration of the record or field is selected at compile-time or at execution-time depending on how 
the reference is coded. The explicit indexing notation is used if the selection is to be made at 
compile-time and the implicit notation is used if the selection is to be made at execution-time. 

Explicit Notation 

An explicit reference is coded for an execution statement if the statement is used to access a fixed 
iteration of the record or field. The particular iteration to be selected is specified by means of 
an iteration number coded immediately after the Record-name or field-name, for example, 
ACCOUNT (1). 



Example: 
RCD: 



RECORD (INDEX, 3) 






FIELD 






The actual layout of the three iterations of RECORD is shown below. Explicit notations are listed to 
the left in order to designate the area referenced by each notation that may be coded within the 
Execution Section. 



RECORD(O) { FIELD(O) j 



RECORD(l) < FIELD(l) j 



REC0RD(2) < FIELD(2) j 
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Implicit Notation 

An implicit reference is coded for an execution statement if the statement is used to access an 
iteration which may vary from one execution of the statement to another. The particular iteration 
selected for reference is determined by the current value of its associated index variable (INDEX- 
name). The iteration selected for implicit reference is changed each time its associated index 
variable is assigned a new value. An index value of zero selects the first iteration, one selects the 
second iteration, and so on. 

An implicit reference is distinguished by the absence of an iteration number coded as a part of the 
reference, for example, ACCOUNT 

Example: The layout for the RCD example under Explicit Notation is shown next with shading 
used to designate the area referred to by the notations RECORD and FIELD for each 
value of INDEX. Explicit references are shown to the left for identification purposes. 



RECORD 

Current Index Value 

00 01 02 



FIELD 

Current Index Value 

00 01 02 



REC0RD(1) 



REC0RD(2) 



ELD(0)j 


















j^H^H 


























ELD(1)| 




^^^^H 






















ELD(2)j 
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The table below illustrates the various forms of coding and the interpretation placed upon an 
indexed RCD-name or indexed RCD-field-name reference. 

Table 6-2: INTERPRETATION OF INDEXED DATA REFERENCES 





Categories 


of References 


Reference Notation 


A,B,C, or D 


buffer 


RCD-name 


Iteration of RCD-name des- 
ignated by the current 
value of its index-name. 


Iteration of RCD-name des- 
ignated by the current 
value of its index-name. 


RCD-field-name 


RCD-field-name within the 
iteration of RCD-name des- 
ignated by the current 
value of its index variable. 


RCD-field-name within the 
iteration of RCD-name des- 
ignated by the current value 
of its index variable. 


RCD-name(n) 


Specifically designated 
iteration of RCD-name. 


Specifically designated 
iteration of RCD-name. 


RCD-field- 

name(n) 


Field-name within the 
specifically designated 
iteration of RCD-name. 


Field-name within the 
specifically designated 
iteration of RCD-name. 


RCD-name * 


Not applicable 


All iteration of RCD-name 
(overall length may exceed 
265 bytes). 



NON-INDEXED DATA REFERENCES 

EQU variables and non-indexed records may correspond to fields with length in excess of 256 
positions. The table below illustrates the various forms of coding and the interpretation placed 
upon the reference by the compiler. 

TABLE 6-3: INTERPRETATION OF NON-INDEXED DATA REFERENCES 





Categories of Reference 


Reference Notation 


A,B,C, or D 


buffer 


EQU-name 

RCD-name or 
KET-name 

RCD-name*or 
KET-name* 


First 256 positions 
First 256 positions 

Not Applicable 


All positions 
All positions 

Not Applicable 


All positions 
All positions 

All positions 


All positions 
First 256 positions 

All positions 






Length 256 positions 








Length in excess of 256 positions 
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OTHER DATA REFERENCES 

All other data items are limited to 256 positions. For these types, the data-name used as a reference 
designates the entire field area. 

Selected substitutions for A and/or D in a statement format cause additional processing to occur as 
outlined below: 

INDEX-name causes a new iteration of the associated record to be selected. 

KET-field-name causes the corresponding display area to be updated, pro- 

vided that the KET containing the field is active. 

STATION-IOD-name . FLDNUM causes the KET field identified by the FLDNUM parameter to 

be selected as the active field (see Section 8). 

STATION-IOD-name • CURFLD causes the currently active KET field to be updated on the 

display (see Section 8). 

Additional processing invoked due to a substitution for D occurs before any processing invoked 
due to substitution for A. 
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DESCRIPTION OF STATEMENTS 

Statements are presented by functional group. The following is presented for each statement: 

• Purpose 

• Format 

• Description 

• Example 
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MOVE STATEMENTS 

Move statements move the contents of one field to another. These statements do not edit or 
manipulate the characters within the sending field. To prevent data truncation, the receiving field 
must be at least as long as the sending field. The programmer can also specify the alignment of data 
within the field; in addition, he may specify a fill character for excess positions in the receiving field. 
The Move statements are: 

MOVE LEFT AND FILL 

MOVE RIGHT AND FILL 

FILL 

MOVE LEFT, NO FILL 

MOVE RIGHT, NO FILL 
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MOVE LEFT AND FILL 



Purpose: 



Format: 



Description: 



Example: 



To move data from one field to another, left-aligned, with remaining positions 
padded with a specified fill character. 

A = B:X: 

Beginning with the leftmost position, the contents of field B are moved, one byte 
at a time, to the leftmost position of field A. Any remaining positions of field A 
are padded with the fill character specified within the colons. 

If field A is shorter than field B, the transfer of data is terminated when field A is 
full and no filling occurs. 



FLDA = FLDB:*: 
BEFORE EXECUTION 

FLDB = 123 

FLDA = XXXXXX 

FLDB = 1234 

FLDA = XXX 



AFTER EXECUTION 

FLDB = 123 
FLDA = 123*** 
FLDB = 1234 
FLDA = 123 
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MOVE RIGHT AND FILL 

Purpose: To move data from one field to another,right-aligned,with remaining positions 

padded with a specified fill character. 

Format: A = :X:B 

Description: Beginning with the rightmost position, the contents of field B are moved, one 

byte at a time, to the rightmost positions of field A. Any remaining positions of 
field A are padded with the fill character specified within the colons. 

If field A is shorter than field B, the transfer of data is terminated when field A is 
full and no filling takes place. 



Example: FLDA = :*:FLDB 

BEFORE EXECUTION 

FLDB = 123 

FLDA = XXXXXX 
FLDB = 1234 
FLDA = XXX 



AFTER EXECUTION 

FLDB = 123 

FLDA = ***123 
FLDB = 1234 
FLDA = 234 
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FILL 

Purpose: To fill a field with a specified fill character. 

Format: A = :X: 

Description: The fill character specified within the colons is moved to each position of field A. 

Example: FLDA = :*: 

BEFORE EXECUTION AFTER EXECUTION 

FLDA = (insignificant) FLDA = ****** 
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MOVE LEFT, NO FILL 

Purpose: To move data from one field to another, left-aligned. 

Format: A = B: : 

Description: Beginning with the leftmost position, the contents of field B are moved, one byte 

at a time, to the leftmost positions of field A. Any remaining positions of field A 
are unchanged. 

If field A is shorter than field B, the transfer of data is terminated when field A 
is full. 



Example: FLDA = FLDB:: 

BEFORE EXECUTION 
FLDB = 123 

FLDA = XXXXXX 



AFTER EXECUTION 

FLDB = 123 

FLDA = 123XXX 



FLDB = 12345 
FLDA = XXX 



FLDB = 12345 
FLDA - 123 



The two colons ( : : ) must be coded to specify the direction of data movement 
(in this case, left- to-right). 

These colons must be contiguous. If a space character is inserted between the 
colons, it will be considered a fill character? therefore, a MOVE LEFT AND FILL 
statement. 
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MOVE RIGHT, NO FILL 

Purpose: To move data from one field to another, right-aligned. 

Format: A = i : B 



Description: 



Example: 



Beginning with the rightmost position, the contents of field B are moved, one 
byte at a time, to the rightmost positions of field A. Any remaining positions of 
field A are unchanged. 

If field A is shorter than field B, the transfer of data is terminated when field A 
is full. 

FLDA = ::FLDB 



BEFORE EXECUTION 



AFTER EXECUTION 



FLDB = 123 



FLDA = XXXXXX 



FLDB = 123 
FLDA = XXXI 23 



FLDB = 1234 
FLDA = XXX 



FLDB = 1234 
FLDA = 234 



The two colons (: :) must be coded to specify the direction of data movement. In 
this case, right-to-left. 

These colons must be contiguous. If a space character is inserted between the 
colons, it will be considered a fill character, therefore, a MOVE RIGHT AND 
FILL statement. 
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DECIMAL ARITHMETIC STATEMENTS 

Decimal Arithmetic statements perform arithmetic calculations on decimal numbers. The Decimal 
Arithmetic statements are: 



DECIMAL EQUATE 
DECIMAL ADD 
DECIMAL SUBTRACT 
DECIMAL MULTIPLY 
DECIMAL DIVIDE 
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DECIMAL EQUATE 

Purpose: To move the contents of a decimal field to another field. 

Format: 1. A = B 

2. A = -B 

Description: 1. The contents of field B are moved to the rightmost positions of field A. The 

sign of the resulting field A is the same as the sign of field B. 

2. The contents of field B are moved to the rightmost positions of field A. The 
sign of the resulting field A is the opposite of the sign of field B. 

If field A is shorter than field B, the transfer of data is terminated when field A is 
full. If field A is longer than field B, the leftmost positions of field A are filled with 
zeros. 

Example 1: FLDA ~ FLDB 



BEFORE EXECUTION 

+ 
FLDB = 231 



AFTER EXECUTION 

+ 
FLDB = 231 



FLDA = (insignificant) FLDA = 23f 



Example 2: 



FLDA = -FLDB 



BEFORE EXECUTION AFTER EXECUTION 

FLDB = 23T FLDB = 23* 

FLDA = (insignificant) FLDA = 231 
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DECIMAL ADD 

Purpose: To obtain the sum of two decimal fields. 

Format: A = B + C 

Where B and/or C may be negative. 

Description: The contents of field B and field C are added together with the result stored in 

field A. 

If field A is not long enough to hold the maximum possible result, the error 
indicator is set and the result value in field A may not be correct. If field A is 
longer than required, the leftmost positions of A are zero filled. 



Example: 



FLDA = FLDB + FLDC 



BEFORE EXECUTION 


AFTER EXECUTION 


FLDB = 100 


FLDB = 100 


FLDC = 30 


FLDC = 30 


FLDA = (insignificant) 


FLDA - 0070 



The sign control for DECIMAL ADD is as follows: 



Sign of 
Field B 



Sign of 
Field C 



Sign of 
Field A 



+ 



+ 



+ 



Sign of field of greater 
absolute value 
Sign of field of greater 
absolute value 



A negative decimal number is stored with the units position modified to reflect 
the negative value so that an additional sign position is not required. These 
numbers should be edited prior to printing. Printing an unedited negative 
decimal number causes the units position to be printed as J through R instead of 
1 through 9. The graphic character associated with the modified zero is not a 
standard graphic. When a negative decimal number is displayed on the CRT 
screen in a NUMERIC KET field, the units position will display through 9 and 
the display attribute byte is changed to REVERSE. 
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DECIMAL SUBTRACT 

Purpose: To obtain the difference of two decimal fields. 

Format: A = B-C 

Description: The contents of field C are subtracted from the contents of field B with the result 

stored in field A. 

If field A is not long enough to hold the minimum possible result, the error 
indicator is set and the result value in field A may not be correct. If field A is 
longer than required, the leftmost positions of field A are filled with zeros. 

Example: FLDA = FLDB-FLDC 



BEFORE EXECUTION 


AFTER EXECUTION 


FLDB = 400 


FLDB = 400 


FLDC = 50 


FLDC = 50 



FLDA = (insignificant) FLDA = 000350 



The sign control for DECIMAL SUBTRACT is as follows: 



Sign of 
Field B 



Sign of 
Field C 



Sign of 
Field A 



+ 



+ 



+ 



If field C is of greater 
absolute value, the result 
is negative. Otherwise, 
the sign is positive. 

If field B is of greater 
absolute value, the re- 
sult is negative. Other- 
wise, the result is positive. 

+ 



6-20 



DECIMAL MULTIPLY 

Purpose: To obtain the product of two decimal fields. 

Format: A = B*C 

Description: The contents of field B are multiplied by the contents of field C, the result is 

stored in field A. 

Fields A, B and C have the following length limitations: 

A — 40 positions 
B — 20 positions 
C — 20 positions 

If field A is not long enough to hold the result, field A is truncated on the left and 
only the least significant digits are stored. In this case, the error indicator is set. 

If field A is longer than required, the leftmost positions of field A are filled with 
zeros. 



Example: FLDA = FLDB*FLDC 

BEFORE EXECUTION 

FLDB = 60 

FLDC = 8 

FLDA = (insignificant) 



AFTER EXECUTION 



FLDB = 60 



FLDC = 8 



FLDA - 00480 



The sign control for DECIMAL MULTIPLY is as follows: 



Sign of 
Field B 



Sign of 
Field C 



Sign of 
Field A 



+ 



+ 



+ 



+ 
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DECIMAL DIVIDE 



Purpose: 



Format: 



Description: 



Example: 



To obtain the quotient and remainder of one decimal field divided by another. 

1. A = B/C 

2. A = B/C.D 

1. The contents of field B are divided by the contents of field C with the result 
stored in field A. 

2. The contents of field B are divided by the contents of field C with the result 
stored in field A. The remainder is stored in field D. 

Fields A, B, C and D have the following length limitations: 

A— 20 positions 
B— 40 positions 
C — 20 positions 
D — 20 positions 

If field A and/or field D is not long enough to hold the result, field A or field D is 
truncated on the left and only the least significant digits are stored. In this case, 
the error indicator is set. If field A (or field D) is longer then required, the leftmost 
positions of A (or D) are filled with zeros. 

Division by zero is not defined. In this case, field A is zero filled and field D is set 
to the same value as field B. Also, the error indicator is set. 

FLDA = FLDB/FLDC 



BEFORE EXECUTION 

FLDB = 206 

+ 
FLDC = 3 

FLDD = (insignificant) 

FLDA = (insignificant) 



AFTER EXECUTION 

FLDB = 206 

FLDC = 3 
FLDD = 2 



FLDA = 000068 



Sign control for DECIMAL DIVIDE is as follows: 

Sign of Sign of Sign of 

Field B Field C Field D 



+ 



+ 



+ 



Sign of 
Field A 

+ 



+ 



+ - - 

NOTE: the relationship between fields A, B, C and D also may be expressed as: B=A*C+D 
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BINARY ARITHMETIC STATEMENTS 

Binary Arithmetic statements perform arithmetic calculations on binary numbers. The Binary 
Arithmetic statements are: 

BINARY ADD 

BINARY SUBTRACT 

BINARY MULTIPLY 

BINARY DIVIDE 
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BINARY ADD 

Purpose: To obtain the sum of two binary fields. 

Format: A - ADD(B,C) 

Description: The contents of field B and field C are added together with the result stored in 

field A. 

The operation proceeds right-to-left, one character (8 bits) at a time until field A is 
full. 

Whenever a field is referenced as a source field in a BINARY ADD statement 
and the receiving field is longer than the source field, the source field is logically 
prefixed with a sufficient number of zero bits to force length concurrence. 
Similarly, if the receiving field is shorter than a source field, then the excess bits 
of the source field are ignored. 



Example: FLDA = ADD (FLDB, FLDC) 

BEFORE EXECUTION 

FLDB = 0000 0000 01 1 1 1111 

FLDC = 0000 0000 001 1 1111 
FLDA = (insignificant) 



AFTER EXECUTION 

FLDB = 0000 0000 01 1 1 1111 

FLDC = 0000 0000 0011 1111 

FLDA = 0000 0000 101 1 1110 



The error indicator is affected by this instruction but no significance can be 
associated with its setting. 
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BINARY SUBTRACT 



Purpose: 

Format 

Description: 



Example: 



To obtain the difference of two binary fields. 

A = SUB(B.C) 

The contents of field C are subtracted from the contents of field B. The result is 
stored in field A. 

The operation proceeds right-to-left, one character at a time, until field A is 
full. (In effect, BINARY SUBTRACT adds the two's complement of field C to 
field B.) 

Whenever a field is referenced as a source field in a BINARY SUBTRACT 
statement and the receiving field is longer than the source field, the source field 
is logically prefixed with a sufficient number of zero bits to force length concur- 
rence. Similarly, if the receiving field is shorter than a source field, then the 
excess bits of the source field are ignored. 

In particular, if field C is shorter than field B, the prefixing of zero bits occurs prior 
to the two's complement operation. 



FLDA = SUB(FLDB.FLDC) 

BEFORE EXECUTION 

FLDB = 0000 0000 0111 1111 
FLDC = 0000 0000 0011 1111 
FLDA = (insignificant) 
FLDB = 0000 0000 0011 1111 
FLDC = 0000 0000 01 1 1 1111 
FLDA = ( insignificant) 



AFTER EXECUTION 

FLDB = 0000 0000 0111 1111 
FLDC = 0000 0000 0011 1111 
FLDA = 0000 0000 0100 0000 
FLDB = 0000 0000 001 1 1111 
FLDC = 0000 0000 0111 1111 
FLDA = 1111 1111 1100 0000 



The error indicator is affected by this instruction but no significance can be 
associated with its setting. 
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BINARY MULTIPLY 



Purpose: 



Format: 



Description: 



Example: 



To obtain the product of two binary fields. 

A = MPY(B,C) 

The contents of field B and field C are multiplied together with the result stored 
in field A. 

The operation proceeds right-to-left, one character at a time, until field A is full. 

Field A cannot exceed 8 bytes (64 bits) in length; field B and C are limited to 4 
bytes each (32 bits). 

Whenever a field is referenced as a source field in a BINARY MULTIPLY 
statement and the receiving field is longer than the source field, the source field 
is logically prefixed with a sufficient number of zero bits to force length concurr- 
ence. Similarly, if the receiving field is shorter than the source field, then the 
excess bits of the source field are ignored. 



FLDA = MPY(FLDB,FLDC) 

BEFORE EXECUTION 

FLDB = 0000 0000 001 1 1 100 
FLDC = 0000 0000 0000 1000 
FLDA = ( insignificant) 



AFTER EXECUTION 

FLDB = 0000 0000 0011 1100 
FLDC = 0000 0000 0000 1000 
FLDA = 0000 0001 1110 0000 



The error indicator is affected by this instruction but no significance can be 
associated with its setting. 
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BINARY DIVIDE 

Purpose: To obtain the quotient and remainder of one binary field divided by another. 

Format: 1. A = DIVR(B,C) 

2. A = D|VR(B,C,D) 

Description: 1. The contents of field B are divided by the contents of field C with the result 

stored in field A. The operation proceeds right-to4eft, one character at a time, 
until field A is full. 

2. The contents of field B are divided by the contents of field C. The result is 
stored in field A. The remainder is stored in field D. The operation proceeds 
right-to-left, one character at a time, until field A is full. 

Fields A, C and D cannot exceed 4 bytes (32 bits) in length; field B is limited to 8 
bytes (64 bits). 

Whenever a field is referenced as a source field in a BINARY DIVIDE statement 
and the receiving field is longer than the source field, the source field is logically 
prefixed with a sufficient number of zero bits to force length concurrence. 
Similarly, if the receiving field is shorter than a source field, then the excess bits 
of the source field are ignored. 



Example: FLDA = D I VR (FLDB, FLDC, FLDD) 

BEFORE EXECUTION AFTER EXECUTION 

FLDB = 0000 0001 1110 0010 FLDB = 0000 0001 1110 0010 

FLDC = 0000 0000 0000 1000 FLDC = 0000 0000 0000 1000 

FLDD = 0000 0000 0000 0000 FLDD = 0000 0000 0000 0010 

FLDA = (insignificant) FLDA = 0000 0000 0011 1100 



The error indicator is affected by this instruction but no significance can be 
associated with its setting. 
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BOOLEAN STATEMENTS 

Boolean statements perform "logical" operations upon fields at the bit level. The Boolean 
Statements are: 



AND 

OR 

XOR (Exclusive OR) 
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AND 



Purpose: 



Format: 



Description: 



Example: 



To form the logical product of two fields. 

A = AND(B,C) 

From right-to-left, each bit position of field B is logically AND'ed with the 
corresponding bit position of field C to produce a result for the corresponding 
position of field A. This operation terminates when field A is full or when all 
positions of field B or field C have been processed. 



FLDA = AND(FLDB,FLDC) 
BEFORE EXECUTION 

FLDB = 1 101 0101 



AFTER EXECUTION 



FLDB = 1 101 0101 



FLDC = 1010 1010 FLDC = 1010 1010 
FLDA = (insignificant) FLDA = 1000 0000 

The diagram below illustrates the result of logically ANDing a bit pair: 

C Bit Value 



B 

Bit 

V&lue 



The intersection of the row and column indicates the appropriate A bit value. 








1 











1 





1 
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OR 



Purpose: 



Format: 



Description: 



Example: 



To form the logical sum of two fields. 

A = 0R(B,C) 

From right-to-left, each bit position of field B is logically OR'ed with the 
corresponding bit position of field C to produce a result for the corresponding 
position of field A. The operation terminates when field A is full or when all 
positions of field B or field C have been processed. 



FLDA = OR(FLDB,FLDC) 
BEFORE EXECUTION 

FLDB = 1100 0111 



AFTER EXECUTION 

FLDB = 1100 01 11 



FLDC = 1010 1010 FLDC = 1010 1010 
FLDA = (Insignificant) FLDA = 1110 1111 

The diagram below illustrates the result of logically ORing a bit pair. 



C Bit Value 








1 








1 


1 


1 


1 



B 

Bit 

Value 



The intersection of the row and column indicates the appropriate A bit value. 
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XOR (Exclusive OR) 



Purpose: 

Format: 

Description: 



Example: 



To perform a logical Exclusive OR comparison between two fields. 

A = X0R(B,C) 

From right-to4eft, each bit position of field Bis logically EXCLUSIVE OR'ed with 
the corresponding bit position of field C to produce a result for the correspond- 
ing position of field A. The operation terminates when field A is full or when all 
positions of field B or field C have been processed. 



FLDA = XOR(FLDB,FLDC) 

BEFORE EXECUTION 

FLDB = 1 100 0101 

FLDC = 1010 1010 

FLDA = (insignificant) 



AFTER EXECUTION 

FLDB = 1100 0101 

FLDC = 1010 1010 
FLDA =0110 1111 



The diagram below illustrates the result of performing a logical Exclusive OR on 
a bit pair. 





C Bit Value 







1 








1 


1 


1 






B 

Bit 

Value 



The intersection of the row and column indicates the appropriate A bit value. 
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EDITING STATEMENTS 

Editing statements allow the programmer to alter the representation, format and alignment of 
fields. The Editing statements are: 

BINARY 

DECIMAL 

JUSTIFY LEFT 

JUSTIFY RIGHT 

PICTURE EDIT 

CURRENCY 

NUMBER EDIT 

TRANSLATE 

COMPRESS 

DECOMPRESS 

HEX 

UNHEX 
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BINARY 



Purpose: 



Format 



Description: 



Example: 



NOTE: 



NOTE: 



To convert a number field in decimal representation into a number field in 
binary representation. 

A = BINARY(B) 

The decimal value of field B is converted to binary representation and moved 
right-to-left to field A. The conversion terminates when all positions of field B (up 
to a maximum of 10 positions) have been processed or when field A is full. 

Termination due to the completion of field B causes the unused positions of field 
A to be filled with leading null characters. 

FLDA = BINARY(FLDB) 

BEFORE EXECUTION 

FLDB (Hex Code) « F0 F0 F2 F5 F9 

FLDA (Binary Code) = 0000 0000 0000 0000 

AFTER EXECUTION 

FLDB (Hex Code) = F0 F0 F2 F5 F9 

FLDA (Binary Code) = 0000 0001 0000 0011 

Hex representation of FLDA=X'01 03' 

The contents of field B must be a positive decimal number or the results will be 
unpredictable. 

The error indicator is affected by this instruction but no significance can be 
associated with its setting. 

A binary number field contains a binary digit in each bit. Each character in a field 
contains eight(8) binary digits. The rightmost bit is the unit's position, the next 
bit to the left is the two's position, the next to the left is the four's position, etc. 
This form of binary representation is unsigned. 

&-128 

► 64 

► 32 

► 16 

► 8 

► 4 

I * 2 

i ► 1 
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DECIMAL 



Purpose: 



Format: 



Description: 



Example: 



To convert a number field in binary representation into a number field in 
decimal representation. 

A = DECIMAL(B) 

The binary contents of field B are converted to decimal and moved to the 
rightmost positions of field A. 

A decimal number field contains a decimal digit in each position. The rightmost 
position is the unit's position, the next to rightmost is the ten's position, etc. 

The operation terminates when field A is full (maximum 10 positions) or when 
all positions of field B (or the four rightmost positions of field B) are converted. 
Unused positions of field A are filled with leading decimal zero characters. 

The error indicator is affected by this instruction but no significance can be 
associated with its setting. 



FLDA = DECIMAL(FLDB) 

BEFORE EXECUTION 

FLDB (Hex Code) = X'FFFF' 
FLDA (Graphic Code) = 00000 



AFTER EXECUTION 

FLDB (Hex Code) = X'FFFF' 
FLDA (Graphic Code) ='65535' 



NOTE: 



The leftmost bit of a binary field is not regarded as a sign bit. 
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JUSTIFY LEFT 



Purpose: 



Format: 



Description: 



Example: 



To move significant characters from one field to the leftmost positions of 
another. 

A = JUSTIFY(B:X:) 

Field B is moved to the leftmost positions of field A, ignoring all leading spaces 
and zeros. The rightmost positions in field A that are not required for the edited 
data from field B are padded with the fill character specified within the colons. 



FLDA = JUST I FY (FLDB :*:) 

BEFORE EXECUTION 

FLDB = #00030 

FLDA = XXXXXX 
FLDB = UOZOm 
FLDA = XXXXXX 



AFTER EXECUTION 

FLDB = J600O3O 

FLDA = 30**** 
FLDB = WOIOM 
FLDA = 30MJ** 



If field A is too small to hold all of the significant characters from the edited field 
B, the transfer of data is terminated when field A is full. Spaces and zeros 
following the leftmost significant character in field B are moved to field A. 
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JUSTIFY RIGHT 



Purpose: 



Format: 



Description: 



Example: 



To move significant characters from one field to the rightmost positions of 
another. 

A = JUST|FY(:X:B) 

Field B is moved to the rightmost positions of field A, ignoring all trailing spaces. 
The leftmost positions in field A that are not required for edited data from field B 
are padded with the fill character specified within the colons. 



FLDA = JUSTIFY(:*:FLDB) 



BEFORE EXECUTION 

FLDB = 030WSWS 

FLDA = XXXXXXX 
FLDB = MSO3O0J6 
FLDA = XXXXXXX 



AFTER EXECUTION 

FLDB = O3O0MS0 

FLDA = ****030 
FLDB = WOIQW 
FLDA = **MJ030 



If field A is too small to hold all of the significant characters from the edited field 
B, the transfer of data terminates when field A is full. 

Spaces to the left of the rightmost significant characters in field B are moved to 
field A. 

Zero is always a significant character in this operation. 
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PICTURE EDIT 

Purpose: To edit a numeric field according to an edit mask. 

Format: A = PICTURE(B,C) 

Description: The contents of field B are moved to field A, right-to-left, according to the 

mask in field C. 

The unit's position in field B is unique in that the sign of the field is recorded 
there as well as the unit's magnitude. For this reason, a negative digit from the 
unit's position is converted to its corresponding positive representation when 
transcribed. This conversion is not applicable to any other digit position. 

Field B is e qual to zero if all positions are zero. 

Field B is greater than zero if any position is not zero and the unit's position 
does not contain a modified digit. 

Field B is less than zero if any position is not zero and the unit's position does 
contain a modified digit. 

The mask in field C is regarded as a string of editing characters which specify 
the editing details. The mask has either a right part only, or both a right part 
and a left part. The rightmost "V" character within the mask determines the 
end of the right part and the beginning of the left part. The essential difference 
between the right part and the left part is the change in function associated 
with certain edit characters and non-significant zeros. 

The term currency-symbol refers to the '$' character. Any character se- 
quence of up to three characters may be defined as an insertion substitute for 
the standard currency symbol. The '$' character always remains the edit 
character that must be coded in the mask itself. 



The edit characters 'S', '+', ! 
than once within the mask. 



•', and '$' are termed floating if they appear more 
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Example: FLDA = PICTURE(FLDB , FLDC) 

7/04/76 070476 Z9/99/99 

The following table defines the editing action associated with each edit 
character: 

EDIT 
CHARACTER EDITING ACTION 

9 Transcribes one character from field B. 

Z Transcribes one character from field B if the character is not 

zero. If the zero is significant, then the zero is transcribed; 
otherwise, an asterisk is substituted. 

« Transcribes one character from field B if the character is not 

zero. If the zero is significant, then the zero is transcribed; 
otherwise, an asterisk is substituted. 

Y Transcribes one character from field B if the character is not 
zero. A space is substituted for a zero, whether or not the zero 
is significant. 

$ Transcribes the edit character itself (space). 

V Ends the right part of a mask and begins the left part. 

, / In right-part processing, the mask character itself is trans- 

cribed unconditionally. 

In left-part processing, the mask character itself is transcribed 
if the character from field Bis significant. If the character from 
field B is not significant, then one of the following three 
editing actions occurs: 



1. an asterisk is substituted if the next edit character is an 
asterisk. 

2. the current edit character is skipped and the floating 
insertion is effected immediately if the next edit character 
is a floating edit character. 

3. a space is substituted if the next edit character is other 
than above. 



'■ 
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EDIT 
CHARACTER EDITING ACTION 

S If the edit character occurs only once within the mask, a 

plus or a minus character is substituted in accordance with 
the positive or negative value of the field. 

If the edit character is floating and the character from field 
B is significant, the field B character is transcribed; other- 
wise the appropriate sign character is substituted and the 
remainder of field A is space-filled without further refer- 
ence to field B or the mask. 

+ Identical to S, except the space character is substituted 

instead of a minus. 

Identical to S, except the space character is substituted 
instead of a plus. 

$ If the edit character occurs only once within the mask, the 

currency symbol is substituted. 

If the character is floating and the character from field B is 
significant, then the field B character is transcribed; 
otherwise, the currency symbol is transcribed and field 
A is space-filled without further reference to field B or 
the mask. 

other 

Any edit character not explicitly listed above is inserted 
directly if the value of field B is less than zero; otherwise, a 
space is substituted. The mask symbols DB and CR are 
edited in this manner. 

Operation is terminated when field A is full. If field B is exhausted first, 
characters of zero are selected for continued editing. If field C is exhausted, 
the edit character 'Z' is used for continued editing. 
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Example: The sign associated with field B is shown here as a separate position only for 

clarity. In practice, the field B sign would be represented with a modified unit's 
position. 



FIELD B VALUE 


FIELD C MASK 


FIELD A RESULT 







9 





1 




9 


1 


10 




9 


10 







Z 


J* 


1 




z 


1 


10 




z 


10 







99 


00 







9Z 


OH 







"it 




1 




>'c 


1 


10 




J- 


10 







*9 


*o 


1 




*9 


*1 


10 




*9 


10 







9 9 


OtfO 


1 




9 9 


CM 1 


10 




9 9 


100 







.9 


.0 


1 




.9 


.1 


10 




.9 


1.0 







.V9 





1 




.V9 


1 


10 




.V9 


1.0 





J, 


J. J. Q 

,""9 


*,**o 





J- 


**\/9 


/\ f\ t\ rf\ II 


100 


$$ 


,$$9 


$,100 


100 


$$, 


$$V9 


$100 


1000 


$$> 


$$V9 


$1,000 


100000 


Z,ZZZV.99 


1,000.00 
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FIELD B VALUE 


FIELD C MASK 

Z,ZZZV,99 


FIELD A RESULT 


10000 


100.00 


10 




Z.ZZZV.99 


.10 


100000 




Z,ZZZV,99 


1 .000,00 


10000 




Z,ZZZV,99 


100,00 


10 




Z.ZZZV,99 


,10 


1000 




SS,SSV9 


+1,000 


-1000 




SS.SSV9 


-1,000 


100 




SS,SSV9 


+ 100 


-100 




SS,SSV9 


-100 


1000 




++,++V9 


+1,000 


-1000 




++,++V9 


1,000 


100 




~,~V9 


100 


-100 




-,-V9 


-100 







9CR 


000 


1 




9CR 


100 


-1 




9CR 


1CR 


1 




9*DB 


1000 


-1 




9*DB 


ltfDB 





$$, 


$$$V.99CR 


$.0000 


100 


$$, 


$$$V.99CR 


$1.00160 


10000 


$$. 


$$$V.99CR 


$100.0000 


100000 


$$, 


$$$V.99CR 


$1,000.0000 


-100 


$$, 


$$$V.99CR 


$1 .OOCR 


-10000 


$$, 


$$$V.99CR 


$100.00CR 


-100000 


$$, 


$$$V.99CR 


$1,000, OOCR 


100000 


$$ 


,$$$V.99S 


$1,000.00+ 


-10000 


$$ 


,$$$V.99S 


$100.00- 


10203 




YYYYY 


10203 


070476 




Z9/Y9/99 


7/04/76 


070476 




Z9/99/99 


7/04/76 



NOTE: 



An all zero field has no significant positions. 
Also see CURRENCY 
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CURRENCY 

Purpose: To change the currency symbol for subsequent use by the PICTURE statement. 

Format: CURRENCY(B) 

Description: The contents of field B are used as the new currency symbol. The currency 

symbol may be altered as many times within a program as desired and may 
consist of up to 3 characters. 

Example: CURRENCY ('*' ) 

This will cause an asterisk to be substituted for '$' until restored or changed. 

CURRENCY('$') 

This will cause the currency symbol to be restored to '$'. 

CURRENCY('DOL') 

This will cause the letters "DOL" to assume the leftmost edit positions previously 
occupied by '$'. 

Also See PICTURE. 
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NUMBER EDIT 



Purpose: 



Format: 



Description: 



Example: 



To create a decimal field from a field containing edit and decimal characters. 

A * numberCb) 

From right-to-left, each position of field B is examined to determine if it is an edit 
character or a decimal digit. Edit characters are discarded but are used to 
determine the arithmetic sign. Decimal digits are moved to field A. If examina- 
tion of field B terminates before field A is full, the remainder of the field is filled 
with zeros. 



FLDA = NUMBEK(FLDB) 

BEFORE EXECUTION 

FLDB = ^$3^.53 

FLDA = XXXXXX 



AFTER EXECUTION 

FLDB = ^$34.53 

FLDA = 003^53 



The sign of the resulting field A is adjusted to correspond with the net sign 
indicated by all edit characters. Interpretation of characters is as follows: 



Character 

0-9 

t . , / ■ * V 

Others 
(including—) 



Action 

Sign unchanged, digit moved 

Sign unchanged, discarded 
Negative result, discarded 



NOTE: 



Field B must contain only positive digits and edit characters. 
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TRANSLATE: 

Purpose: To translate data from one code set to another using a translate table. 

Format: A = TRANSLATE^, C , EFF : sn) 

Description: From left-to-right, each byte of field B translated per field C and moved to the 

corresponding position in field A. 

Field C is a translate table. 

As each byte (character) is moved, the character is used as a binary offset into 
field C to select the contents of that position as the translated value. 

If field A is shorter than field B, the operation terminates when A is full. If field A 
is longer than field B, the unused bytes of field A are not modified. 

Example: FLDA = TRANSLATE (FLDB, FLDC, ERR: sn) 
BEFORE EXECUTION 
FLDB (Hex Code) = 03 02 01 Oh 
FLDC (Graphic Code) = *ABCD 
FLDA (Graphic Code) = XXXX 

AFTER EXECUTION 

FLDB (Hex Code) = 03 02 01 Oh 
FLDC (Graphic Code) » *ABCD 
FLDA (Graphic Code) = CBAD 



NOTE: 



If the range of field C is exceeded by a particular value in field B, the error 
indicator is set; however, the translate process is not terminated. 
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COMPRESS 

Purpose: To convert a record into a compressed record. 

Format: A = COMPRESS (B,C , ERR: sn) 

Description: Compression is used to achieve improved recording characteristics for data on 

magnetic media. The improvement is derived from the reduced number of 
positions required by the compressed record and from the use of all positions of 
the physical records within the compressed file. 

Field A is the buffer receiving the compressed characters. When filled with data, 
field A should be written to the compression file. 

Field B is the record which is to be compressed. 

Field C is the data control block (DCB) used to indicate when field A is full and 
when field B is fully compressed. 

When the DCB indicates that field A is full by returning an External State Code 
(ESC) of X'01', the program should take the following steps: 

1. Write the compression buffer (field A) to the compression file. 

2. Execute the COMPRESS statement again so that the compression of the 
record (field B) may continue. 

When the DCB indicates that field B is fully compressed by returning an 
External State Code (ESC) of X'OO', the program should take the following 
steps: 

1. Obtain the next record (field B) which is to be compressed. 

2. Execute the COMPRESS statement again so that compression of the new 
record may begin. 

Field A and field B are each limited to 256 positions. 

Field C (DCB) must be exactly 10 positions. The DCB must be initialized to all 
zeros (either binary or decimal) before the compression activity and should not 
be subsequently reset or altered for the duration of the activity. 
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The internal organization of the DCB is as follows: 

Result Length (RL) 
Source Displacement (SD) 
Repeat Count (R) 
Previous Character (P) 
Current Character (C) 
Reserved 

Internal State Code (ISC) 
External State Code (ESC) 




The Result Length and External State Code subfields are significant to the 
application as described below. All others are for exclusive use of the COM- 
PRESS operation. 

The DCB indicates via the External State Code (ESC) field whether field B is 
fully compressed (ESC = X'OO') or if field A is full prior to the end of the input 
segment (ESC = '01'). When ESC is X'00' and there is no "next record," the 
compression activity should be terminated. The program may accomplish this 
with the following steps: 

1. Null-fill the unused portion of the compression buffer (field A). 

2. Write the compression buffer to the compression file. 

3. CLOSE the compression file. 

The unused portion of field A to be null-filled can be determined from the DCB's 
Result Length (RL) field which designates the number of positions currently in 
use. 

Null-filling provides for properly synchronized end-of-segment detection during 
decompression and simplifies later extension of the file, if necessary. 
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Compression involves left-to-right processing of field B as shown in the table 
below. The "FIELD B DATA" column enumerates the current situation in re- 
gards to the sequence of characters to be compressed. The first applicable 
entry in the column is the one which is used. The "Process" section enumer- 
ates the one or two values. (Repeat Value/Data Value) added to the com- 
pression buffer and the next compression step taken. 



Table 6-4: COMPRESSION PROCESS 



FIELD B DATA 


PROCESS 


Repeat Value 


Data Value 


Next Step 


15 or more repeated 
characters in 
sequence 


15 (X'OF') 


Repeated 
Character 


Continue scanning 


2-14 repeated 
characters in 
sequence 


Repetition 

Count 

(X'02'-X'0F) 


Repeated 
Character 


Continue scanning 


1 character in the 
range X'OO' to X'OF 


1 (X'01') 


Data 
Character 


Continue scanning 


1 character in the 
range X'10' to X'FP 


Not 
applicable 


Data 
Character 


Continue scanning 


No characters 
remaining 


(X'OO') 


Not 
applicable 


Return to program 
with the External 
State Code = X'OO' 



Example 1: 



NOTE: 



The ERR:sn branch is taken if the length of field C is incorrect or its contents are 
determined to be invalid (e.g., the Data Control Block (DCB) is not properly 
initialized to nulls (X'OO') before execution of COMPRESS). 

Contents of B before and after execution of COMPRESS 
| F0| FOJ F0| F0| F2j F1 1 40 1 40| 40| 40| F0| F0| F0| F0| F6| F3J40J 40j 40| F0| F9 

Contents of A after Execution of COMPRESS 

[04 1 F0 1 F2 1 F 1 | 04 1 40 1 03 1 F0 1 F6 1 F3 1 03 1 40 1 F0 1 F9 1 00 1 

Example 1 illustrates the compression of only one string. 
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Example 2: 


RCD: 


B 
-(133); 




RCD: 


A 
-(128); 




RCD: 


DCB 

DCBLEN(0,2) 

"(0,10); 




EQU: 


EQ; 



START 





DCB=:00: 


5, 


READ(-,B,E0F:30) 


10, 


A=COMPRESS(B,DCB) 




G0(DCB)5,20 


20, 


WRITE(-,A,-) 




GO: 10 


30, 


EQ=STRING(A,0,DCBLEN,ERR:^0) 




A=EQ:00: 




WRITE(-,A,-) 


40, 


CLOSE(-) 



END 



Example 2, which is a portion of an entire application, illustrates how the 
COMPRESS statement is used with other statements to compress an entire file. 

Also see DECOMPRESS. 
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DECOMPRESS 

Purpose: To convert a compressed record into its original expanded representation. 

Format: A - DECOMPRESS (B, C , ERR: sn) 

Description: Field A is the buffer to receive the expansion of field B. When it contains a full 

segment of data, field A should be written to the decompression file. 

Field B is the compressed record. 

Field C is the Data Control Block (DCB) used to indicate when field A is full or 
when field Bis completely decompressed. The internal organization of the DCB 
is shown under COMPRESS. 

The ERR:sn branch is taken if the length of field C is incorrect or its contents are 
determined to be invalid (i.e., the Data Control Block (DCB) is not properly 
initialized to nulls (X'OO') before execution of DECOMPRESS). 

When the DCB indicates that a full segment has been expanded into field A, an 
External State Code of X'OO' is returned, the program should take the following 
steps: 

1. Write the record in the buffer (field A) to the decompression file. The record 
within field A occupies the first number of positions indicated by the RL in 
the DCB. (See the internal organization of the DCB.) 

2. Execute the DECOMPRESS statement again so that expansion of another 
segment may begin. 

When the DCB indicates that field B is fully decompressed by returning an 
External State Code of X'01', the program should take the following steps: 

1. Obtain the next compressed record (field B) to be expanded. 

2. Execute the DECOMPRESS statement again so that expansion of the 
compressed segment may continue. 

When the DCB indicates that field A is full by returning an External State Code 
of X'02', the program has not provided a buffer of sufficient length to hold an 
entire decompressed segment. Programmer options are: 

1. Change the source program to provide for a buffer of greater length. 

2. Dispose of the current contents of field A and execute the DECOMPRESS 
statement again to obtain the remainder of the segment. 

Field A and field B are each limited to 256 positions. 

Field C (DCB) must be exactly 10 positions. The DCB must be initialized to all 
zeros (either binary or decimal) before the decompression activity and should 
not be subsequently reset or altered for the duration of the activity. 
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Tables ONE and TWO are used to outline character scanning during the 
decompression activity. Characters are scanned one or two at a time. The first 
character scanned is referred to as R; the second character simultaneously 
scanned (if applicable) is referred to as D. 

When DECOMPRESS is executed and the External State Code is X'OO', 
TABLE ONE applies. "Otherwise the last active table is used. 

TABLE ONE 



Field B Value of R 


Next Step 


X'OO' 
X'Ol'-X'FP 


Continue scanning with Table ONE 
Process according to Table TWO 





TABLE TWO 




Field B Value of R 


Data Decompression 


Next Step 


X'OO' 


Not Applicable 


Return to program 
with ESC =X'00' 


X'Ol'-X'OP 


Produce R copies of 
character D 


Continue scanning 
with Table TWO " 


X'lO'-X'FF' 


Produce one copy of 
character R 


Continue scanning 
with Table TWO 
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Example: 



RCP: 


A 




-033); 


RCD: 


B 




"(128); 


RCD: 


DCB 




DCBLEN(0,2) 




"(0,10); 


EQU: 


EQ; 



START 



DCB=:00: 
5, READ(-,B,-) 

10 A=DECOMPRESS(B,DCB) 

GO(DCB)20,5,30 
20, EQ=STRING(A,0,DCBLEN) 

PRINT(-,EQ,-) 

GO: 10 
30, NOT I FY ('DATA ATTRI BUTE(AE) ' ,ANS) 

(ERROR RECOVERY) 



END 



The example above which is a portion of an entire application, illustrates how 
the DECOMPRESS statement is used with other statements to decompress an 
entire file. 
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HEX 

Purpose: To convert binary data into graphic hexadecimal data 

(EBCDIC 0-9, A- F). 

Format: A = HEX(B) 

Description: From right-to-left, each byte of field B is converted into two bytes of hexadecimal 

data and stored in field A; therefore, field A should be twice the size of field B. 

The operation terminates when field A is full. If field A is more than twice as long 
as field B, the unused leftmost positions of field A are filled with EBCDIC zeros. 

Example: FLDA = HEX(B) 

BEFORE EXECUTION 

FLDB (Binary Code) = 1000 0100 0100 1111 

FLDA (Graphic Code) = 'XXXX 1 
AFTER EXECUTION 

FLDB (Binary Code) = 1000 0100 0100 1111 
FLDA (Graphic Code) = '844F' 
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UNHEX 



Purpose: 



Format: 



Description: 



Example 1: 



Example 2: 



To convert graphic hexadecimal data (EBCDIC 0-9, A-F) into binary data. 

A = UNHEX(B) 

From right-to-left, each successive pair of bytes from field B converted into one 
byte of binary data and stored in field A; therefore, field A need be only half as 
long as field B. 

The operation terminates when field A is full. If field A is longer than required, 
the unused leftmost positions of field A are filled with binary zeros. 

If field B contains an odd number of hexadecimal digits, a value of decimal zero 
is assumed to complete the leftmost hexadecimal pair. 

If a character other than a hexadecimal digit is encountered in field B, a value of 
decimal zero is assumed for that character. 

The error indicator is affected by this instruction but no significance can be 
associated with its setting. 



BEFORE EXECUTION 

FLDB (Graphic Code) = ' 1W 

FLDA (Binary Code) = 0000 0000 0000 0000 
AFTER EXECUTION 

FLDB (Graphic Code) = '8W 

FLDA (Binary Code) = 0000 0000 0000 0000 

BEFORE EXECUTION 

FLDB (Graphic Code) = 'W 

FLDA (Binary Code) = 0000 0100 0100 1111 
AFTER EXECUTION 

FLDB (Graphic Code) = '8W 

FLDA (Binary Code) = 1000 0100 0100 1111 
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CONTROL STATEMENTS 

Control statements control the flow of program execution, either conditionally or unconditionally. 
The Control statements are: 

UNCONDITIONAL GO 

STOP 

CONDITIONALS 

COMPUTED GO 

CASE 

ERROR TEST 
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UNCONDITIONAL GO 



Purpose: 



Format: 



Example: 



To branch unconditionally to a specified statement. 
G0:sn 



Description: The GO statement unconditionally transfers control to the statement specified 

by sn. 



G0:25 
22,A+B*C 



25, STOP 
END 

If the statement immediately following a GO is not an END statement, then that 
statement must have a statement number so that it can be reached (via a branch 
or PERFORM statement) during program execution. 
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STOP 

Purpose: To terminate program execution. 

Format: STOP 

Description: The stop statement terminates program execution. It may appear anywhere in 

the Execution Section prior to the END statement. Although several STOP 
statements may appear in the program, only one STOP can be executed per 
program execution. 

When a STOP statement is executed, all open logical files are closed. If an error 
condition occurs during closing of these files, the condition is not reported to the 
program. 

Example: STOP 

If the statement immediately following STOP is not an END statement, it must 
have a statement number so that it can be reached (via a branch or PERFORM 
statement) during program execution. 
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CONDITIONALS 

Purpose: To alter the flow of execution based upon a specified condition of program data. 

Format: A conditional statement is composed of two parts: a conditional phrase and an 

executable statement. The test specified in the conditional phrase determines 
whether or not the executable statement is executed. 

1. IF (condition) statement 

2. IFNOT (condition) statement 

Description: 1. When the specified condition is true, statement is executed; otherwise, the 

next in-line statement is executed. 

2. When the specified condition is false, statement is executed; otherwise, the 
next in-line statement is executed. 

The executable statement must not be an ENTRY statement. 

Example 1: I F(cond i t ion) GO: 20 

When condition is true, the GO statement is executed; otherwise, the next 
in-line statement is executed. 

Example 2: I FN0T(cond i t ion) A = :*: 

When the condition is false, the FILL statement is executed; otherwise, the next 
in-line statement is executed. 

Unless the executable statement affects program flow, the next in-line statement 
will also be executed. 



NOTE: 



Since a conditional statement is also an executable statement, the conditional 
statement may be compounded. For example, 

IF(condition-B) IFNOT(condition-C) GO: 20 

When condition-B is true and condition-C is false, the GO statement is exe- 
cuted, otherwise, the next in-line statement is executed. 
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CONDITIONAL PHRASES: ALPHANUMERIC 



Purpose: 



Format: 



To compare one alphanumeric field to another alphanumeric field or to a 
specified alphanumeric literal character. 

1. (B, MATCHES, C) 

2. (B, MATCHES, :X:) 

3. (B, CONTAINS, :X:) 

4. (B, CONTAINS, C) 



Description: 1. From left to right, each position of field B is compared to the corresponding 

position of field C for as many positions as there are in the shorter of the two 
fields. If each position pair contains the same character value or either 
position contains the null character, the position pair matches. If every 
position pair matches, the condition is true; otherwise, false. 

2. Each position of field B is compared to the specified literal character and to 
the null character. If each position of field B contains either the specified 
literal character, or the null character, the condition is true; otherwise, false. 

3. Each position of field B is compared to the specified literal character. If at 
least one position of field B matches the specified literal character, the 
condition is true; otherwise, false. 

4. Each position of field B is compared to the first position of field C. If at least 
one position of field B matches the character contained in the first position of 
field C, the condition is true. 



6-58 



Example 1: I F (FLDB, MATCHES , FLDC)G0:10 
I A I A |n] |A |B| |_AJ 

| A |nl | A | B | | A | B | nl | B 



A l n1 l A l 



| A | nl | B 



RESULT 

TRUE 
TRUE 
FALSE 



Example 2: I F (FLDB, MATCHES, : A: ) GO: 1 
IA I nl I A | [A] 

I A | A | [A] 

| A | nl | B | [Aj 



RESULT 

TRUE 
TRUE 
FALSE 



Example 3: I F(FLDB, CONTAINS, : A: )G0: 1 
I A | A 1 A | [_A_ 



B I B I B I A 



l B |C|D| 



A 



A 



RESULT 

TRUE 
TRUE 
FALSE 



Example 4: I F (FLDB, CONTA I NS, FLDC) GO: 1 
| A | nl | A | | A | B | B | 

I A J B | C | | C | B | A | 

| A | nl | A | | C | B | A | 



RESULT 

TRUE 
TRUE 
FALSE 



Where nl = null 

The logical not character ( ~| ) may prefix an alphanumeric comparator to designate inversion of 
the true/false condition. For example, "I CONTA I NS designates a true condition when the 
corresponding CONTAINS condition is false. Thus, the two samples below are functionally 
equivalent: 
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CONDITIONAL PHRASES: BINARY 

Purpose: To compare two binary fields. 

1. (B,EQ,C) 4. (B,NE,C) 

2. (B,LT,C) 5. (B,LE,C) 

3. (B,GT,C) 6. (B,GE,C) 



Format: 



Description: 



The binary contents of field B are compared to the binary contents of field C. 
The condition is true for the following cases: 

1. Field B equals field C; 

2. Field B is less than field C; 

3. Field B is greater than field C: 

4. Field B is unequal to field C; 

5. Field B is less than or equal to field C; 

6. Field B is greater than or equal to field C. 

In all cases, if one field is longer than another, the shorter field is regarded as 
filled with sufficient leading nulls to achieve equal length. 



Example: 



IF(FLDB,EQ,FLDC)G0:10 
1010 1111 1010 1111 



0000 0000 1111 0000 



1010 1111 



0000 1111 0000 



0000 0000 



RESULT 
TRUE 
TRUE 
FALSE 



The logical not character (1) may prefix a binary comparator to designate 
inversion of the true/false condition. 

For example, 1EQ designates a true condition when the corresponding EQ 
condition is false. Thus the two samples below are functionally equivalent: 

IF(FLDB,7EQ,FLDC)G0:10 
IFN0T(FLDB,EQ,FLDC)G0:10 



NOTE: 



The leftmost bit of a binary field is not regarded as a sign bit. 
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CONDITIONAL PHRASES: BIT 

Purpose: To compare bit settings. 

Format: 1. (B,HASB I TS, C) 

2. (B,HASBITS,:X:) 

Description: The leftmost byte of field B is compared, using the logical AND, with either the 

leftmost byte of field C (format 1) or the literal character X (format 2). If the result 
is not equal to zero, the condition is true. 



Example: 



IF(FLDB,HASBITS,FLDC)G0:10 RESULT 



1000 0000 


1 100 0000 


TRUE 


0100 0000 


1 100 0000 


TRUE 


0010 0000 


1000 0000 


FALSE 



The logical not character (~1) may prefix a bit comparator to designate inversion 
of the true/false condition. For example, THASB I TS designates a true condi- 
tion when the corresponding HASB I TScondition is false. Thus, the two sam- 
ples below are functionally equivalent: 

IF(FLDB,1HASBITS,:80:)G0:10 
IFN0T(FLDB,HASBITS,:80:)G0:10 
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CONDITIONAL PHRASES: DECIMAL 



Purpose: 



Format: 



Description: 



To compare two decimal fields. 

1. (B = C) 

2. (B < C) 

3. (B > C) 
4 (B <=C) 
5. (B >=C) 

The decimal contents of field B are compared to the decimal contents of field C. 
The condition is true for the following cases: 

1. Field B equals field C; 

2. Field B is less than field C; 

3. Field B is greater than field C; 

4 Field B is less than or equal to field C; 
5. Field B is greater than or equal to field C. 

In all cases, if one field is longer than the other, the shorter field is regarded as 
filled with sufficient leading zeros to achieve equal length. 



Example 1: 






IF(FLDB 


= FLDC)G0:10 


RESULT 




| 


1 | 2 


5 




1 


2 | 5 


TRUE 










1 


2 


5 


1 


2 


5 


TRUE 






+ 




+ 











l|2 


5 





2 


5 





FALSE 



Example 2: 



IF(FLDB< FLDC)G0:10 







+ 




+ 







JJ 


1 













+ 


o 


2 


| 


1 






ill 







RESULT 

TRUE 
TRUE 
FALSE 
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Example 3: 


IF(FLDB >FLDC)G0:10 

1 1 l + l 1 1 + l 
| | 2 | | | 1 1 1 

I l" | \s 3 3 


RESULT 


( 


TRUE 

TRUE 


: 


1 r 1 1 9 1 9 | 9 1 


FALSE 



NOTE: 



The values in the compared fields may be positive or negative. The contents of 
the B or C fields cannot be negated during the decimal compare operation. 

The logical not character (~l) may prefix a decimal comparator to designate 
inversion of the true/false condition. For example "1= designates a true condi- 
tion when the corresponding = condition is false. Thus, the two samples below 
are functionally equivalent: 

IF(FLDB1=FLDC)G0:10 
IFN0T(FLDB=FLDC)G0:10 
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CONDITIONAL PHRASES: SORT 

Purpose: To compare two alphanumeric fields for collating sequence. 

Format: 1. (B, EQUALS, C) 

2. (B, BEFORE, C) 

3. (B,AFTER,C) 



Description: 



Example 1: 



If one field is longer than the other in the above formats, the shorter field is 
regarded as filled with sufficient trailing nulls to achieve equal length. 

1. From left-to-right, each position of field B is compared to the corresponding 
position of field C for as many positions as there are in the longer of the two 
fields. If each pair contains the same character value, the condition is true. 

2. From left-to-right, each position of field B is compared to the corresponding 
position of field C for as many positions as there are in the longer of the two 
fields or until a mis-match occurs. If a mis-match occurs and the character 
from field B is before the character from field C in the EBCDIC collating 
sequence, the condition is true. 

3. From left-to-right, each position of field B is compared to the corresponding 
position of field C for as many positions as there are in the longer of the two 
fields, or until a mis-match occurs. If the character from field B is after the 
character from field C in the EBCDIC collating sequence, the condition is 
true. 

IF(FLDB, EQUALS, FLDC)G0: 10 RESULT 



1 A | B I 


| A | C | nl | 


1 nl| A| 



A I B J nil TRUE 

I A I C 1 TRUE 

M A I FALSE 



Example 2: 



IF(FLDB, BEFORE, FLDC)G0:10 RESULT 



1* 


*l 


A | 


1° 


°l 


'1 


|B 


c| 


°l 



|B|B| B| 


|2|2| 3 | 


l*|5|6| 



TRUE 
TRUE 
FALSE 



Where nl = null 
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Example 3: I F (FLDB, AFTER, FLDC) GO: 1 RESULT 

|B| B I B| I A 1 A I A I TRUE 

I 3 | | 1 | |2|0| 1| TRUE 

j B j B | B | I B 1 B | B | FALSE 



The logical not character (~l) may prefix a sort comparator to designate inversion 
of the true/false condition. For example, 1 B E FO R E designates a true condition 
when the corresponding BEFORE condition is false. Thus, the two samples 
below are functionally equivalent: 

IF(FLDB,1BEF0RE,FLDC)G0:10 

I FNOT (FLDB, BEFORE, FLDC) GO: 10 
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COMPUTED GO 

Purpose: To branch, based upon a value to a statement specified in a list of statement 

numbers. 

Format: G0(B)sn-l i St 

Description: The low order byte of field B determines which statement from the statement 

number list is to be branched to. If the low order byte contains zero ( 0) , then the 
first statement number from the list is selected. If the low order byte contains 1, 
then the second statement number from the list is selected, and so on. 

Only the rightmost four bits of field B are examined. All other bits of field B are 
ignored. Therefore, the values X 1 00', X'10 1 ,..., X ' F0 'would 
each cause the first statement number in the list to be selected. 



Example: 



G0(FLDB)10,20,10 



NOTE: 



If the rightmost four bits of field B contain a value greater than that implied by 
the length of the statement number list, the next in-line statement is executed. 

Branches within the sn-list may not be omitted (for example : GO( FLDB) 1 0, , 1 
is considered invalid). 
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CASE 

Purpose: To branch to a statement specified in a list of statements. 

Format; CASE(B)cond i t ion-1 ;sn-l ,condi t ion-2: sn-2, ... ,cond i t ion-n:sn-n 

Description; The rightmost position of field B determines the statement number to which it is 

to branch. The coding of each condition includes a range of values for field B 
associated with the statement to be branched to if the condition is met. 

A condition may be expressed as either an alphanumeric or hexadecimal string. 

If a condition describes a single character, then that character must be matched 
exactly by the rightmost position of field B. 

If the condition describes more than one character, then the rightmost position 
of field B must be greater than or equal to the leftmost condition character, and 
less then or equal to the rightmost condition character in order for the condition 
to be satisfied. 

If more than two characters occur in the condition, only the first and last are used 
as described above. 

The EBCDIC collating sequence constitutes the basis for the compare. 

If multiple conditions are satisfied by field B, the first satisfied condition deter- 
mines the branch. 

Example: CASE (FLDB) 'AF ' : 1 0, ■ 09 ' :20 

If the rightmost position of FLDB contains either A, B, C, D, E, or F, control is 
passed to the statement labeled 10. If FLDB contains a digit (0 through 9), 
control is passed to the statement labeled 20. For all other values, control is 
passed to the next in-line statement. 
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ERROR TEST 



Purpose: 



Format: 



Description: 



Example: 



To branch to a specified statement on an error condition. 
ERRrsn 

ERR transfers control to the statement number specified when the error indi- 
cator is set. If the error indicator is not set, the next in-line statement is executed. 

FLDA=FLDB+FLDC 
ERR:25 



25, STOP 
The ERR statement should immediately follow the statement being monitored. 
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SUBROUTINE STATEMENTS 

Subroutine statements delimit and direct execution of a subroutine. A subroutine is a group of 
statements performing a specific function that may be performed as often as necessary. The 
subroutine is coded only once, eliminating repetitive statements. It may be accessed from any- 
where within the Execution Section of the program. The Subroutine statements are: 



PERFORM 

ENTRY 

EXIT 
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PERFORM 

Purpose: To invoke execution of a subroutine. 

Format: PERFORM: sn 

Description: To transfer control to a subroutine ENTRY specified by sn. Also, PERFORM 

causes the return location of the next statement in-line with the PERFORM to be 
saved for later continuation of the current program sequence. 

Example: START 



PERFORM: 10 



(Subroutine call) 



I F(B, MATCHES, C) PERFORM: 10 (Subroutine call) 



■10, ENTRY 

(Subroutine) 



EXI T: 1 



END 



Since subroutines can be referenced by other coding within the main program- 
ming module and since all fields of the main module are available to sub- 
routines, they are usually reserved for calculations/operations which are fre- 
quently used, tedious to repeat, or subject to change. A significant reduction in 
both source program size and object program size can be realized with this 
technique for program structuring. 

The PERFORM, ENTRY and EXIT statements provide a means of logically 
structuring the application program; therefore, branching to a statement within 
the subroutine is not recommended. 

A subroutine should not contain a call to itself. However, if a call of this type is 
coded, a logical exit must be provided within the subroutine, such as a condi- 
tional or unconditional branch statement. A logical means of leaving such a 
subroutine is required, since the saved address of the first PERFORM statement 
is lost upon execution of the second PERFORM statement. 
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ENTRY 



Purpose: 



Format: 



Description: 



Example: 



To designate the beginning of a subroutine. 

sn, ENTRY 

The ENTRY statement designates the beginning of the sequence of execution 
statements (subroutines) and establishes the ENTRY statement number. 

The subroutine is normally called through the PERFORM statement. However, 
the ENTRY statement can be reached logically as the next statement in 
sequence or as the result of a branch statement. When reached logically as an 
in-line statement, execution proceeds with the first statement following the 
ENTRY statement. 

Since the subroutine is internal to the calling program, all fields within the calling 
program are common to the subroutine and may be used by statements within 
the subroutine. 

No data definition statements may appear within the subroutine. All data 
definition statements required for subroutine data must be included in the Data 
Definition Section of the calling program. 

If multiple statement numbers are assigned to ENTRY, only the last may be 
referenced by PERFORM/EXIT 

START 



PERFORM: 10 



GO: 10 



(Subroutine call) 



(In-line branch) 



I F (B) , MATCHES, C) PERFORM: 1 (Subroutine call) 



IF(B,MATCHES,C)G0:10 



0, ENTRY 



(In-line branch) 



END 



(Subroutine) 
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Nesting of subroutine calls is permitted as long as no subroutine has two outstanding performs 
against it. For example: 



START 




PERFORM: 100 



END 



00, ENTRY 



200. ENTRY 



PERFORM: 200 



EXIT: 1 00 




EXIT:200 



Also see EXIT and PERFORM. 
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EXIT 

Purpose: To terminate execution of the subroutine by returning control to the calling 

program. 

Format; EXITrsn 

Description: An EXIT statement returns control to the return location saved by the initiating 

PERFORM statement. 



Example: 



EXIT does not alter the return information established by PERFORM. If a 
PERFORM has been previously executed, control passes to the statement 
immediately following that PERFORM. However, if a PERFORM has never 
been executed, control passes to the statement following the EXIT 

An exit can be made from a PERFORM' ed sequence to a specified statement 
anywhere in the program by means of a branch statement. A labeled statement 
within a PERFORM' ed sequence can be the object of a branch from anywhere 
in the program. 

START 



PERFORM: 10 

Next executable statement 



(Calling PERFORM statement) 



10, ENTRY 



EXIT: 1 



(Subroutine) 



END 



Also see ENTRY and PERFORM. 
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I/O STATEMENTS 

I/O statements direct Input/Output operations. I/O operations transfer data between the 
application program in main memory and the I/O device. Also, I/O statements control the I/O 
device. The I/O statements are: 

OPEN 

CLOSE 

READ 

WRITE 

CHECKEOD 

DELETE 

FREESPACE 

INSERT 

READLOCK 

READNEXT 

RELEASE 

SETEOD 

BACKSPACE 

MARK 

REWIND 

REWINDLOCK 

SKIPFILE 

CHECKFORMS 

PRINT 

SETFORMS 

SENDEOF 
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OPEN 

Purpose: To gain access to an I/O device. 

Format: OPEN ( I OD-name, buf f er, ERR: sn) 

Description: The dataset represented by the IOD is connected to the corresponding device 

and is made available for use. For DISKETTE, the dataset may be a named 
dataset or it may be the whole volume. 

For all devices but DISK and DISKETTE, the buffer and its preceding comma 
may be omitted. 

If an error condition occurs, the ERR exit is taken. If no ERR exit is coded, 
execution of the program is cancelled. 

Example: OPEN (PAYROLF I LE, BUFFER, ERR: 200) 
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CLOSE 

Purpose: To terminate access to an OPEN'ed dataset. 

Format: CLOSE ( I OD-name, buff er , ERR: sn) 

Description: CLOSE releases the logical file defined by the IOD and all of the underlying 

resources. If the IOD is not OPEN, the operation is null. 

For all devices but DISK and DISKETTE, the buffer and its preceding comma 
may be omitted. 

If error occurs during the CLOSE operation, control is transferred to the 
statement labeled sn. Even in this case the logical file is no longer open. 

Example: CLOSE (PAYROLFI LE, BUFFER, ERR: 20) 



NOTE: 



When a STOP statement is executed, all open logical files are closed. See the 
discussion of STOP in this section. 
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READ (applies to all devices, except PRINTER) 

Purpose: To transfer a data record from a dataset (or the host processor). 

Format: READ ( I OD-name, buf f er, ERR: sn- 1 , EOF: sn-2) 

Description: A data record is transferred by the device specified in the IOD. 

The ERR exit is taken if an error condition results. If no ERR exit is coded, 
execution of the program is cancelled. 

The EOF exit is taken if an end-of-file condition results. If no EOF exit is coded, 
the end-of-file condition is regarded as an error condition and handled as 
described in the paragraph above. 



Example: 



READ (PAYROLF I LE, BUFFER, ERR: 200, EOF: 201) 
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WRITE 



Purpose: 



To transfer a data record to a dataset (or the host processor). 



Format: WR I TE ( I OD-name, buf f er, ERR: sn-1 , EOF: sn-2) 

Description: A data record is transferred to the device specified in the IOD. 

The ERR exit is taken if an error condition results. If no ERR exit is coded, 
execution of the program is cancelled. 

The EOM exit is taken if an end-of-medium condition results. If no EOM exit is 
coded, the end-of-medium condition is regarded as an error condition and 
handled as described in the paragraph above. 

Example: WR ITE (PAYROLF I LE, BUFFER, ERR: 1 01 , EOM: 1 02) 
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CHECKEOD 

Purpose: 

Format: 
Description: 



To lock position of READ or WIRTE operations at EOD (next record-space after 
the last record in the dataset) and to prevent other users from accessing that 
record-space. 

CHECKEOD(lOD-name,ERR:sn) 

CHECKEOD positions the file to prepare for writing at EOD (i.e., to append 
records). The location of EOD is locked in order to serialize the use of EOD and 
avoid a conflict between two or more users attempting to write a new "last 
record." 

The lock may be removed by RELEASE, WRITE, or CLOSE. One record at a 
time may be locked for an IOD. 

The POSITION keyword* is updated to contain the system-maintained EOD. 

If the record located at EOD cannot be reserved, control is transferred to the 
statement labeled sn in the ERR clause. If no ERR clause is coded, program 
execution is cancelled. 



* See section 7 for a detailed discussion of the POSITION Keyword. 
Example: CHECKEOD (PAYROLF I LE, ERR: 1 02) 
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DELETE 

Purpose: To remove an entry from an index dataset. 

Format: DELETE ( I OD-name, ERR: sn) 

Description: The index entry for the most recently referenced record of the target dataset is 

removed from the index dataset represented by this IOD. The index IOD must 
have just been used to reference the target record. The target dataset remains 
unchanged. 

DELETE is valid only for index datasets for which ACCESS =SEQ or 
ACCESS =RAN. 

Example: IOD:DATAFILE = DISK/DISKETTE 
IOD: INDEX1 = DISK/DISKETTE 
ACCESS = RANDOM 
KEYVALUE = FIELDNAME 
TARGET = DATAFILE 
START 



READ(|NDEX1, . ,.) 
DELETE(|NDEX1,...) 



The record is not deleted from the target dataset, only its associated index 
dataset entry is deleted. 
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FREESPACE 

Purpose: To free allocated space beyond EOD (end-of-data). 

Format: FREESPACE ( I OD-name, ERR; sn) 

Description: Any space beyond EOD for the dataset is returned to the free space chain for the 

volume. The entire allocated space may be returned to the free space chain by 
setting EOD=X'00 00', then executing FREESPACE. 

If an error condition occurs, the ERR exit is taken. If no ERR exit is coded, 
program execution is cancelled. 

Example: FREESPACE (PAYROLF I LE, ERR: 1 02) 
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INSERT 

Purpose: To cause a new entry to be included in an index dataset for an existing but not 

previously indexed record in the target dataset. 

Format: I NSERT( I OD-name, ERR: sn) 

Description: The key position information for the most recently referenced record of the 

target dataset is added to the index dataset. The target IOD and the buffer for the 
reference operation must have been left undisturbed. 

Prior to INSERT, a READ operation must be executed against the target record 
to establish the target . POSITION and the record value. The INSERT statement 
causes the Random Index Access Method (RIAM) to hash the keyfield(s) 
located in the READ buffer, determine a POSITION for the index entry and 
WRITE that index entry to the index dataset. 

If an index for the particular target record already exists in the index dataset, the 
error branch is taken. If the index dataset is full, the index record cannot be 
inserted and the ERR branch is taken. If the ERR exit is not coded, program 
execution is cancelled. 

Example: IOD:DATAFILE = DISK/DISKETTE 



IOD: I NDEX1 = DISK/DISKETTE 



ACCESS = RANDOM 



KEYVALUE = FIELDNAME 



TARGET = DATAFILE 



START 



NOTE: 



CHECKEOD(DATAFILE,. ..) 
WRITE (DATAFILE,.. .) 
INSERT(|NDEX1,.. .) 

The above statements add a new record to the target dataset DATAFILE and 
enable this record to be accessed by INDEX1. 

The operation of INSERT is valid only for index datasets for which 
ACCESS =RAN. 
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READLOCK 

Purpose: To transfer a data record from a device and prevent any other user from 

accessing that record. 

Format: READLOCK ( I OD-name, buf f er, ERR: sn-1 , EOF: sn-2) 

Description: A READLOCK operation is similar to a READ operation except as noted below. 

The record described in the .POSITION keyword is locked to prevent read 
access through other IOD's. The .POSITION keyword is not incremented (in 
anticipation of a subsequent WRITE operation which updates the record and 
clears the lock). 

One record at a time may be locked for an IOD. 

The ERR exit is taken if an error condition results. If no ERR exit is coded, 
program execution is cancelled. 

The EOF exit is taken if an end-of-file condition results. 

If an EOF condition arises and no EOF clause is specified, the ERR exit is taken. 

Example: READLOCK(PAYROLF I LE, BUFFER, EOF: 1 01 , ERR: 1 02) 
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READNEXT 

Purpose: To transfer the next data record, which has the same keyvalue as the record 

previously read, from the target dataset to memory. 

Format: READNEXT( I OD-name, buf f er , ERR: sn-1 ,E0F:sn-2) 

Description: When more than one record contains the same keyvalue, this statement may be 

used to acquire the second record (and subsequent records) via repeated 
executions. When the series of duplicated keyvalues is exhausted, the READ- 
NEXT operation takes the EOF:sn-2 branch. 

The ERR exit is taken if an error condition results; control passes to the 
associated sn. If no ERR exit is coded, program execution is cancelled. 

The EOF exit is taken if an end-of-file condition results. If an EOF condition 
arises and no EOF clause is specified, the ERR exit is taken. 

This statement is valid only for index files when ACCESS =RAN. 

Example: READ ( I NDEX1 , . . . ) 

READNEXT(INDEX1,...) 
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RELEASE 

Purpose: To remove restricted access (without transferring data) on an external dataset 

record which has been the object of the READ LOCK or CHECKEOD operation. 

Format: RELEASE ( I OD-name, ERR: sn) 

Description: This statement unlocks a previously locked record without performing a WRITE 

operation. 

Example: RELEASE (PAYROLFI LE, ERR: 1 02) 

The POSITION keyword* is examined to determine which record is to be un- 
locked. Upon successful completion of the RELEASE operation, CONTROL 
is returned to the next statement; the POSITION keyword is incremented by 
one. 

If the RELEASE request is not honored, control is transferred to the statement 
associated with the statement number specified in the ERR clause and the 
POSITION keyword is not changed. If no ERR clause is coded, program 
execution is cancelled. 

* See Section 7 for a complete discussion of POSITION and other keywords. 
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SETEOD 

Purpose: To update the system-maintained EOD (end-of-data). 

Format: SETEOD ( I OD-name, ERR: sn) 

Description: The EOD (end-of-data) for a dataset is reset to the value obtained from the 

POSITION keyword of the IOD. 

The EOD parameter is recorded in two locations: in the system-maintained 
EOD and in the dataset label located in the VTOC. The system-maintained 
EOD is updated following a successful completion of a SETEOD operation. The 
system-maintained EOD is also updated upon completion of WRITE operations 
which extend the file. The dataset label of the VTOC is updated from the 
system-maintained EOD when the dataset is closed. 

If the record designated by the POSITION keyword exceeds the extent of the 
dataset, an error condition occurs and control is transferred to the statement 
labeled sn. If no ERR exit is coded, program execution is cancelled. 



Example: 



SETE0D(PAYR0LFILE,ERR:102) 



NOTE: 



SETEOD can only be used with DISK/DISKETTE if ACCESS ^EXCLUSIVE. 
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BACKSPACE 

Purpose: To move the tape back one record. 

Format: BACKSPACE ( I OD-name, ERR: sn) 

Description: The magnetic tape is backed-up one record. The tape is left positioned in the 

inter-record gap preceding the "backed-over" record. This operation is cancel- 
led if no previous record is encountered. 

Example: BACKSPACE (PAYROLF I LE, ERR: 1 00) 
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REWINDLOCK 



Purpose: 



Format: 



Description: 



Example: 



To cause the magnetic tape to be positioned immediately prior to load point. 
REWINDLOCK(lOD-name,ERR:sn) 

The magnetic tape is positioned ahead of the load point. The tape drive is 
switched off-line, effectively preventing subsequent use without operator inter- 
vention (i.e., the tape drive must be manually placed on-line prior to issuing 
further positioning or data transfer commands). 

If an error condition occurs, the ERR exit is taken. If no ERR exit is coded, 
program execution is cancelled. 

REWI NDL0CK(PAYR0LF I LE, ERR: 101 ) 
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SKIPFILE 



Purpose: 



To position a magnetic tape beyond the next encountered tape mark. 



Format: SK I PF I LE ( I OD-name, ERR: sn) 

Description: The magnetic tape is positioned within the inter-record gap following the next 

tape mark encountered in the forward direction. 



Example: 



The operation is cancelled and the ERR exit is taken in the event that no forward 
positioned tape mark is encountered (end-of-reel). If no ERR exit is coded, 
program execution is cancelled. 

SKIPFILE(PAYR0LFILE,ERR:101) 
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CHECKFORMS 



Purpose: 



Format: 



Description: 



Example: 



To obtain the current printer control and positioning information. 

CHECKFORMS ( I OD-name, ERR: sn) 

The current printer control information is returned to the FORMS and POSI- 
TION parameters. * 

Control passes to the next statement unless the CHECKFORMS request cannot 
be honored. In this case, control is transferred to the statement labeled sn in the 
ERR clause. If no ERR clause is coded, program execution is cancelled. 

CHECKFORMS ( L I STF I LE , ERR: 1 03) 



* See Section 7, for an explanation of the FORMS and POSITION keywords. 
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PRINT 

Purpose: To effect printing with forms control. 

Format: PR I NT ( I OD-name, buf f er , ERR: sn-1 ,E0F:sn-2) 

Description: The paper is advanced according to the value contained in the SLEW* 

keyword. Up to 132 bytes of data may be transferred to the printer. 

Example: PR I NT (PAYROLF I LE, BUFFER, EOF: 1 10,ERR:200) 

The ERR exit is taken if an error condition results. If no ERR exit is coded, 
program execution is cancelled. 

The ERR exit is taken if an end-of-form condition results. If no EOF exit is 
coded, the end-of-form condition is disgarded and the next in-line statement is 
executed. 

* See Section 7, for a detailed description of SLEW 
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SETFORMS 



Purpose: 



Format: 



Description: 



To alter active printer control parameters. 

SETFORMS ( I OD-name, ERR: sn) 

SETFORMS sets the POSITION keyword to zero (0), notifying the system that 
the forms are positioned to top-of-forms. Also, it transfers the values specified 
for FORMS (in the IOD) to the System Control Block. See the Initial Program 
Load values for the system control table in Section 7, under the FORMS 
keyword. 

The FORMS parameter is a four-byte field: 
byte 1 = lines per page 

byte 2 = characters per inch — horizontal, range 1 
byte 3 = lines per inch — vertical, range 1-48 
byte 4 = lines per form 



15 



Example: 



For the horizontal measurement, only 1, 2, 3, 4, 5, 6, 10, 12, 15, 20, 30, and 60 
are exact measurements since the unit of escapement is l/60th of an inch. Any 
other number would be approximate to its nearest value. 

For the vertical measurement, only 1, 2, 3, 4, 6, 8, 12, 24, and 48 lines per inch 
are exact measurements since the vertical forms ratchet is l/48th of an inch. 
Any other number would be approximated. After execution of SETFORMS, 
control passes to the next subsequent statement. If the SETFORMS request 
cannot be honored, control passes to the statement labeled sn in the ERR 
clause. If no ERR clause is coded, program execution is cancelled. 

SETF0RMS(LISTFILE,ERR:103) 
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SENDEOF 

Purpose: To transfer an end-of-file indicator to the compatible channel. 

Format: SENDEOF ( I OD-name, ERR: sn) 

Description: A tape mark (end-of-file) is transmitted to the host System 2400. For a detailed 

description of SENDEOF, see Section 7. 

Example: SENDE0F(PAYR0LF I LE, ERR: 1 01 ) 
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STATION I/O STATEMENTS 

STATION I/O statements provide the necessary interface between the operator and the applica- 
tion for data entry, validation and display. The STATION I/O statements are: 

RENTER 

KVERIFY 

RESUME 

RESUMERR 

ERROR 

NOTIFY 

READSCREEN 

READKEY 
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KENTER 

Purpose: To initiate a session of data entry/update from the keystation. 

Format; KENTER ( I OD-name, KET-name, ESC: sn- 1 , ERR: sn-2) 

Description: A session of entry/update is initiated with the KET serving as the focal point for 

station control and data display. 

The IOD-name parameter must designate an IOD for which the device is 
STATION. 

The "ERR:sn-2" phrase designates a program routine which is to receive 
control when a program or systems configuration error is encountered. If 
omitted and such an error condition occurs, program execution is cancelled. 

The "ESC:sn-l" phrase designates a program routine which is to receive 
control when an application-level control key is depressed. The routine is also 
executed prior to operator input if the KET is defined with the "INIT =ESCAPE" 
clause. If omitted and either condition occurs, processing is continued as though 
the condition had not occurred. 

For complete details of operation, see Section 8. 
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KVERIFY 

Purpose: To initiate a session of data verify/update from the keystation. 

Format: KVER I FY ( I OD-name, KET-name, ESC : sn-2, ERR: sn-2) 

Description: A session of verify/update is initiated with the KET as the focal point for station 

control and data display. 

The syntactic units are as described for KENTER. 

For complete details of operation, see Section 8. 



6-98 



RESUME 

Purpose: To continue the active KENTER/KVERIFY session. 

Format: 1. RESUME 

2. RESUME(KET-f ield-name) 

Description: For complete details of operation, see Section 8. 



6-99 



RESUMERR 



Purpose: 



Format: 



Description: 



To continue the active KENTER/KVERIFY session following display of an 
exception message. 



1. RESUMERR 

2. RESUMERR(B) 

3. RESUMERR(B,KET-f ield-name) 

4. RESUMERR (,KET-f ield-name) 

For Formats 2 and 3, the exception message (Field B) is edited and displayed. 
For Formats 1 and 4, an all blank operation message is edited and displayed. 

Following operator acknowledgement, the session is continued at the point of 
lost interaction (Formats 1 and 2) or to a specific field (Formats 3 and 4). 

If Format 3 or 4 is coded, field A must be a KET field-name within the currently 
active KET or a program error results. 

For complete details of operation, see Section 8. 
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ERROR 



Purpose: 



Format: 



Description 



Example: 



To display an exception message for which no response, other than acknow- 
ledgement, is required. 

ERROR (B) 

An exception message (field B) is displayed on line 2 of the display screen. 

The RESET key is depressed to acknowledge the message. Control is then 
returned to the next in-line statement. 

For details of operation, see Section 8. 

ERR0R( 'RECORD NOT FOUND 1 ) 
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NOTIFY 

Purpose: To display an exception message and solicit a keyed response character. 

Format: N0TIFY(B,C) 

Description: An exception message (field B) is displayed on line 2 of the display screen. 

The RESET key is depressed to acknowledge the message. A response is then 
keyed; the value of this key is placed in the leftmost position of field C. The 
control is then returned to the next in-line statement. 

For details of operation, see Section 8. 

Example: NOT I FY( ■ RECORD NOT FOUND ' ,FLDC) 
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READSCREEN 

Purpose: To obtain an individual line from the display. 

Format: READSCREEN ( I OD-name, buff er , ERR: sn-1 ,E0F:sn-2) 

Description: A display line is edited for printing and transferred to the buffer. 

The IOD-name must designate the station device. 

The "ERR:sn-l" exit designates a program routine which is to receive control 
when an incorrect display line is referenced. If omitted, program execution is 
cancelled. 

The "EOF:sn-2" exit designates a program routine which is to receive control 
when the successor to the last display line is referenced. If this exit is omitted, the 
reference is considered to be incorrect and is handled as described above. 
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READKEY 

Purpose: To obtain the next keyed data character or to be informed that no keyed data 

character is present. 

Format: READKEY ( I OD-name, buff er, ERR: sn) 

Description: The next keyed data character is returned in the leftmost position in the buffer; 

the program routine designeated by "ERR:sn" is executed if no keyed character 
is present. 

The IOD-name must designate the STATION device. 

For details of operation, see Section 8. 
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SPECIAL PURPOSE STATEMENTS 

Special Purpose Statements perform specialized functions to enhance application program capa- 
bility. The Special Purpose statements are: 

CHECKDIGIT 

GETTIME 

SETTIME 

SAME 

STRING 
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CHECKDIGIT 



Purpose: 



Format: 



To validate or generate the checkdigit of a self checking number. 



Description: 



Example 1: 
Example 2: 
Example 3: 



VALIDATE 

1. CK10(B,ERR:sn) 

2. CK11 (B,ERR:sn) 

3. CKTB1 (B,ERR:sn) 

4. CKTB2(B,ERR:sn) 



GENERATE 

5. B=CK10(B,ERR:sn) 

6. B=CK1 1 (B,ERR:sn) 

7. B=CKTB1 (B,ERR:sn) 

8. B=CKTB2(B,ERR:sn) 



NOTE: 



The contents of field B, exclusive of the rightmost position, are evaluated to 
determine the checkdigit for the field. 

1 — 4. The calculated checkdigit is compared with the rightmost position 
of field B. If they do not match or the field contents are not suitable for 
the selected algorithm, control is transferred to the statement labeled 
sn. 

5 — 8. The calculated ckeckdigit is moved to the rightmost position of field B. 
If the calculated digit is not suitable for the selected algorithm, control 
is transferred to the statement labeled 
sn. 

The selected algorithms are: 

1,5 : IBM Modulus 10 
2,6: IBM Modulus 11 

3.7 : Custom algorithm. 

4.8 : Alternate custom algorithm. 

CK10(FLDB,ERR:101) 
FLDB=CK1 1 (FLDB.ERR: 101) 
FLDA=CK1 1 (FLDB,ERR: 1 01 ) 

Example 3 illustrates that the receiving field for generation may be different from 
the source field. 

See Appendix G for CHECKDIGIT Algorithms. 
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GETTIME 



Purpose: 



Format: 



Description: 



Example: 



To read the System Time-Of-Day Clock. 

GETTIME(B) 

The time of day is retrieved from the clock and stored in field B. 

The System Time-Of-Day is a 24-hour clock. This field is a twelve-position 
decimal field containing: 

YYMMDDhhmmss 

Where: 

YY = year 

MM = month 

DD = day 

hh = hours 

mm — minutes 

ss = seconds 

The system increments only hours, minutes and seconds. Space is allocated for 
year, month and day so that they may be optionally incremented by an 
application program. When the time of day is retrieved, it is moved right-to-left to 
field B. The operation terminates when field A is full. If field B is longer than 
twelve positions, it is filled with leading zeros. 

During the Initial Program Load, the clock is filled with zeros. A value may be 
key-entered whenever the Selection Display Screen is conditioned to perform a 
program load. Care should be taken so that conflicting settings of the time-of- 
day clock are avoided. 

GETTIME(FLDB) 
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SETTIME 

Purpose: To set the System Time-Of-Day Clock. 

Format: SETTIME(B) 

Description: The time of day is moved from field B to the clock. The System Time-Of-Day 

Clock is a 24-hour clock. This field is a twelve-position decimal field containing: 

YYMMDDhhmmss 
Where: 

YY = year 

MM = month 

DD = day 

hh = hours 

mm = minutes 

ss = seconds 

The system increments only hours, minutes and seconds. Space is allocated for 
year, month and day so that they may optionally be incremented by an 
application program. When the time of day is transferred to the clock, it is 
moved from right-to-left from field B until every position (up to the rightmost 
twelve) of filed B has been transferred. If field B contains fewer than twelve 
positions, the Time-Of-Day Clock is filled with leading zeros. 

Care should be taken so that conflicting settings of the Time-Of-Day Clock are 
avoided. 



Example: 



SETTIME(FLDB) 
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SAME 



Purpose: 



Format: 



Description: 



To select a field or buffer for subsequent program reference. 

EQU-name=SAME (buffer) 

After assignment of EQU-name as an alternate reference name for buffer, 
EQU-name may be used to reference the contents of the selected buffer. 



Example: 



RCD: 



C0UNT1 (5) 



C0UNT2(8) 



EQU: FLDE; 
START 



(Subroutine Parameter) 



FLDE = SAME(COUNTl) 
PERFORM: 100 



(Setup Parameter) 
(Call Subroutine) 



FLDE = SAME(C0UNT2) 
PERFORM: 100 



(Setup Parameter) 
(Call Subroutine) 



100, ENTRY 



FLDE = FLDE + 1 



(Increment Parameter) 



NOTE: 



EXIT: 1 00 

END 

For interpretation of EQU-name where buffer is greater than 256 positions, see 
Table 6-3. 
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STRING 

Purpose: To select a sub-field of a field or a buffer for subsequent program reference. 

Format: EQU-name=STR I NG (buf f er , B, C , ERR: sn) 

Description: After assignment of EQU-name as an alternate reference name for a sub-field of 

the buffer, EQU-name may be used to reference the contents of the selected 
sub-field. 



NOTE: 



For interpretation of EQU-name when the resulting sub-field of the buffer is 
greater than 256 positions, see Table 6-3. 

The binary contents of the rightmost two bytes of field B indicate the number of 
leading bytes of the specified buffer which precede the desired sub-field (offset). 
The binary contents of the rightmost two bytes of field C indicate the length of 
the sub-field (length). 

The sub-field must be within the bounds of the specified buffer. If any part of the 
sub-field lies beyond those bounds: 

1. The EQU-name is not changed. 

2. The error indicator is set. 

3. If the ERR exit is coded, control is transferred to the statement labeled 

sn. 
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Example: 



The example program processes input records each of which contains eight 16 
byte items. 







DAI 


rA RECORD LAYC 

L28 CHARACTER' 


)UT 






* 






'} 




W 


16 
CHAR 


16 
CHAR 


16 
CHAR 


16 
CHAR 


16 
CHAR 


16 
CHAR 


16 
CHAR 


16 
CHAR 



ITEM1 



RCD: BUFFER 
-(128); 

RCD: PARAMS 

OFFSET = X'OO 00'; 

EQU: SUBFIELD; 

START 



(Input buffer of: 
8*16 byte items) 

(Offset in buffer to item) 



(Active item for processing) 



10, 



20. 



30, 



OFFSET = X'OO 00' 

READ (-.Buffer, EOF: 30) 

SUBFIELD = STRING (BUFFER, OFFSET, 

16, ERR:10) 
OFFSET = ADD (OFFSET, 16) 



G0:20 



END 



(Set (RESET) offset) 
(Read (new) buffer) 

(Select item until buffer ends) 
(Setup for next item) 

Process this item 
(Continue extracting) 
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NOTE: The following operations are supported as synchronous operations by Release 

7 compiler and system software: 

BACKSPACEA 

MARKA 

PRINTA 

READA 

READLOCKA 

READNEXTA 

REWINDA 

REWINDLOCKA 

SENDEOFA 

SKIPFILEA 

WAIT 
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SECTION 7: INPUT/OUTPUT OPERATIONS 



Data is recorded at a device on some form of media. All or a portion of that media may be 
available for the programmer's use. Input/Output operations transfer data between the 
application program in main memory and the I/O device. Input operations receive data from a 
device to the application program. Output operations send data from the application program 
to the output device. Both operations involve some device. The data transferred is contained in 
datasets (files). A complete definition of a dataset is presented in Appendix F of this manual. A 
dataset may be thought of as the physical structure containing data. A file is a logical structure of 
data. 

Statements involved with I/O operations may be divided according to the subsections of 
MOBOL. 

I/O STATEMENTS IN THE DATA DEFINITION SECTION 

The Data definition statements define initial parameters for the I/O devices. They are: 

Key Entry Table Statement (KET) 
Input/Output Descriptor Statement (IOD) 

The KET statement is documented in Sections 5 and 8. The IOD statement is used to identify an 
I/O device, its access characteristics and the datasets which may be contained on the device. 
The IOD specifies certain information regarding control parameters used by the operating 
system to access the data. When an IOD is declared, a File Control Block (FCB) containing the 
parameters for the IOD is created in the data section of memory by the compiler. The access 
method control program uses this information when it accesses the dataset. The FCB is an 
interface between the system and the MOBOL program. The IOD declaration is a means to 
provide certain default information to the File Control Block when the program is initially loaded 
into the system. Certain parameters may be changed at execution time by use of the 
IOD-name. keyword syntax. The syntax of the IOD statement is presented in Section 5 of this 
manual. 
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I/O STATEMENTS IN THE EXECUTION SECTION 

I/O execution statements direct operation of the I/O devices. Table 7-1 lists all statements and 
the devices to which they apply. 

Table 7-1: I/O Execution Statements by Device 





Station 


Disk/Diskette 


Tape 


Data Recorder 


Printer 


Comp Chan 


BACKSPACE 






X 








CHECKEOD 




X 










CHECKFORMS 










X 




CLOSE 




X 


X 


X 


X 


X 


DELETE 




X 










ERROR 


X 












FREESPACE 




X(DISK only) 










INSERT 




X 










RENTER 


X 












KVERIFY 


X 












MARK 






X 








NOTIFY 


X 












OPEN 




X 


X 


X 


X 


X 


PRINT 










X 




READ 




X 


X 


X 




X 


READKEY 


X 












READLOCK 




X 










READNEXT 




X 










READSCREEN 


X 












RELEASE 




X 










RESUME 


X 












RESUMERR 


X 












REWIND 






X 








REWINDLOCK J 






X 








SENDEOF 












X 


SETEOD 




X 










SETFORMS 










X 




SKIPFILE 






X 








WRITE 




X 


X 


X 


X 


X 



The I/O statements listed above that are used for STATION are explained in Section 8. 
Statements pertaining to all other devices are discussed within each device operation 
subsection. General syntax for all statements is presented in Section 6. 
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KEYWORD CLASSIFICATION 

Keywords are classified according to the functional locations of their appearance in MOBOL 
source code. D keywords appear in the Data Definition Section. E keywords appear in the 
Execution Section. DE keywords may appear in either section. 

Keywords Used In The Data Definition Section (D Keywords) 

Keywords appearing in the Data Definition Section (D keywords) either define parameters or 
error message text. They appear in the IOD statement in the form: 

Keyword = Value 

Keywords relating to STATION operations are discussed in Section 8. Keywords pertaining to 
I/O operations for DISK, DISKETTE, TAPE (DATA RECORDER) and COMP CHAN 
(Compatible Channel) are: 



ACCESS 



A parameter that specifies the desired access method, degree of 
exclusive use and whether a "READ after WRITE" check is to be per- 
formed. This parameter, available only in the iod-specification, is a 
compile-time parameter. It is not addressable at run-time. The format 
is: 



ACCESS = 



jBASIC 
.RANDOM 

'sequential; 



EXCLUSIVE 
SHARED 



NVERIFY 
VERIFY 



KEYVALUE 



The default values are BASIC, EXCLUSIVE and NVERIFY. They are 
used in the absence of the ACCESS iod-specification or the absence 
of their respective selection group. RANDOM may be abbreviated 
using RAN, SEQUENTIAL may be abbreviated using SEQ. 

A keyword that designates a data-name in a previously defined RCD. 
The previously defined RCD must not be an RCD array. The contents 
of the field associated with this data-name will be used by the 
RANDOM INDEX ACCESS METHOD to determine the location of a 
specific target record. KEYVALUE is valid only when ACCESS= 
RANDOM and must be specified after the ACCESS clause. See 
"RANDOM INDEX ACCESS METHOD" on subsequent pages of 
this section. 



TARGET 



A keyword which designates the IOD-name of the target dataset pre- 
viously defined. TARGET appears in the IOD of an index dataset. The 
TARGET clause is required and considered valid only when ACCESS 
= RAN or ACCESS - SEQ. It must be specified after the ACCESS 
clause. 
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Keywords Used In The Execution Section (E Keywords) 

Keywords appearing in the Execution Section relate to the status and parameters of I/O 
operations. These keywords may appear in any of the execution statements where A, B, C or D 
is indicated in the syntax of the statements. The format used is: 

I OD-name . Keyword 

Keywords used for STATION operations are presented in Section 8. Keywords pertaining to 
I/O operations for TAPE (DATA RECORDER), DISK, DISKETTE and COMP CHAN are: 



ACTUAL 



BLKLEN 



EOD 



EOE 



ERRCODE 



FORMS 



A six-byte field corresponding to the volume-name. It contains the 
actual volume-name found on the unit when OPEN was executed. 

Is a two-byte binary parameter indicating the block length (used as a 
maximum record length) specified in the dataset label. 

A two-byte binary READ-ONLY field that indicates the logical end of 
data (the number of records in the dataset). The EOD value is the rela- 
tive record number of the next record to be appended to the file. 

A two-byte binary READ-ONLY field indicating the dataset's last 
physically allocated record number. 

A one-byte READ-ONLY field containing the completion code for the 
operation. For an abnormal completion, ERRCODE will contain the 
actual code used to designate the specific termination result (i.e., 
reason for abnormal completion). The bit encoding is: 

765^ 3210 
SSSS MMMM 

M = Major status 
S = Sub-status 

See Appendix E. 

A four-byte parameter indicating the binary parameters (listed below) 
for the printer. 

Byte 1 = lines per page 

Byte 2 = characters per inch 

Byte 3 = lines per page 

Byte 4 = lines per form 

The default values are 66 lines per page, ten characters per inch, six 
lines per inch and 58 lines per form. These values are established 
during Initial Program Load but may be altered by subsequent use of 
SETFORMS. 



7-4 



MARK 



A one-byte parameter used to specify whether the current record is 
active or deleted. The values for this field are: 



OUTLEN 



X'03' = Normal record 
X'OO' = Deleted record 

This parameter is valid only for DISKETTE. 

A two-byte binary field that indicates the length of the next output 
buffer. This parameter applies to all devices (DISK, DISKETTE, 
PRINTER, TAPE (DATA RECORDER) and COMP CHAN). 

OUTLEN may be used to override the length attribute for a WRITE 
operation in lieu of specifying a variable length buffer. Prior to the 
WRITE operation, the intended length of the buffer is placed in IOD- 
name. OUTLEN. Then, when the WRITE operation takes place, this 
length is used instead of the buffer length. This override mechanism is 
a one-time execution (that is, the length must be placed in OUTLEN 
for each specific operation). 



POSITION 



For DISK/DISKETTE: A two-byte binary field that specifies the cur- 
rent relative record number (X'OO 00' is the first record) of the active 
dataset. This parameter may be used to pass random location infor- 
mation to a READ or WRITE function causing the device to access the 
specified record. 



STATUS 



For PRINTER: A one-byte binary READ-ONLY parameter that indi- 
cates the current line position on the form. The value X'OO' indicates 
top-of-form. 

A one-byte READ-ONLY field that indicates the current operational 
condition of the I/O device. 

Actual coding of the major and minor status bits indicate various con- 
ditions depending upon the I/O device used. 

NOTE: STATUS is provided for compatibility between 
system levels. It is recommended that ERRCODE be 
used in lieu of STATUS. 



XFERLEN 



A two-byte binary READ-ONLY field that indicates the length minus 
one of the data record last read into the buffer. 



XFERSTATUS 



A field that indicates the status of the Series 21 when it is connected 
(via compatible channel) to the System 2400. Bit encoding is pre- 
sented in this section under "COMPATIBLE CHANNEL I/O OPER- 
ATIONS". 
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Keywords Used in Both The Data Definition And The Execution Section (DE Keywords ) 

The keywords that may be used in both sections of MOBOL are presented below. When used in 
the Data Definition Section, they define parameters in the IOD statement. The format for this 
section is: 

Keyword = Value 

In the Execution Section, these keywords are used to reference their respective parameters. 
They may appear in any of the execution statements where fields A, B, C or D is indicated in the 
syntax of the statements. The format for the Execution Section keyword reference is: 

I OD-name. Keyword 

Keywords that may be used in both sections of MOBOL are listed and defined below. 

DATASET An eight-byte field* containing the name of the dataset to be used by 

this file. For a DISKETTE, the whole volume will be used as the data- 
set if the leftmost byte of the field contains a X'FF' (e.g., DATASET = 
:FF:). 



SLEW 



A one-byte parameter for directing forms control for a printer. Paper 
advances may be performed before or after printing according to the 
value set. The bit encoding is: 

7654 3210 
TBnn nnnn 

T = - Slew 

1 - Top of Forms 



B = - Before Print 

N = number of lines in binary to slew when T = 0. 

If the slew value chosen causes the line position to exceed the bottom 
of a form (lines per form), and end-of-form is generated. The print 
operation is performed before the EOF exit is taken. The slew value 
supplied by the application program is not changed. 



*The dataset-name must be exactly eight characters and must be properly aligned. The default 
value is "DATA>Jb»". 
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STATE 



A one-byte parameter indicating the status of the file as it is referenced 
by the IOD (e.g., OPEN or CLOSED, SHARED or EXCLUSIVE). 
The STATE is specified by the values set in each bit. The bit encoding 
is: 



765^ 3210 
OEXX XXCD 

O = - If the file is CLOSEd 
1 - If the file is OPEN 

E = - If the file is SHARED 
1 - If the file is EXCLUSIVE 

X = Reserved for future use 

C* = - New print operation 

1 - Continue previous print 

D* = - If the SLEW information is contained in the IOD parameter 
1 - If the SLEW information is in the first position of the data 
buffer 



UNIT 



A one-byte binary field indicating a specific drive (in the case of DISK 
or DISKETTE) or a specific printer (in the case of PRINTER). A value 
of X'OO' has a special meaning in that the I/O system will search for the 
required unit (see OPEN in the device dependent sections). The de- 
fault value of X'01' is used if UNIT is not specified in the IOD. A deci- 
mal number may be specified for UNIT in the data definition for the 
IOD. It is converted to binary representation by the compiler. 



VOLUME 



A six-byte field specifying the name of the volume to be used. If this 
field contains nulls (X'OO') at OPEN time (e.g., VOLUME = :00), the 
I/O system will search for the dataset on any volume (as specified by 
the contents of the UNIT field). The default value is all nulls. 



*Used only at OPEN time. Once set in the IOD, these bits can only be changed while the file is 
closed. 



This field must be exactly six characters. 
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Table 7-2: Keywords By Device 





Diskette 


Disk 


Printer 


Tape 


Data-Recorder 


Comp Chan 


ACCESS 


X 


X 










ACTUAL 


X 


X 










BLKLEN 


X 


X 










DATASET 


X 


X 










EOD 


X 


X 










EOE 


X 












ERRCODE 


X 


X 


X 


X 


X 


X 


FORMS 






X 








KEYVALUE 


X 


X 










MARK 


X 












OUTLEN 


X 


X 


X 


X 


X 


X 


POSITION 


X 


X 


X 








SLEW 






X 








STATE 


X 


X 


X 


X 


X 


X 


STATUS 


X 


X 


X 


X 


X 


X 


TARGET 


X 


X 










UNIT 


X 


X 


X 


X 


X 




VOLUME 


X 


X 










VOLUME 


X 


X 










XFERLEN 


X 


X 




X 


X 


X 


XFERSTATUS 












X 



DISK/DISKETTE I/O OPERATIONS 

DISK and DISKETTE I/O operations are similar. Exceptions and/or major differences will be 
noted in the text. 

In these operations there are three access methods: Basic, Sequential Index and Random 
Index. 

BASIC ACCESS METHOD 

The Basic Access Method is the control program responsible for logical Input/Output oper- 
ations to the I/O device DISKETTE or DISK. 
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DISKETTE Operations 

MDS supports diskettes in a manner which is consistent and compatible with IBM's definition of 
Basic Data Exchange. MDS does not support the alternate track assignment feature. 

A diskette dataset is a series of contiguous records with a constant length (less than or equal to 
128 bytes). The dataset has a label in the Volume Table Of Contents (VTOC) which describes 
the dataset configuration. The VTOC is recorded at the beginning of the diskette on the Index 
Track. This dataset label contains the dataset-name and the absolute addresses for beginning- 
of-extent (BOE), end-of-extent (EOE) and the relative address of end-of-data (EOD) as well as 
other information required by the IBM Basic Data Exchange standards.* A diskette record is a 
series of bytes preceded by a mark byte (which is not part of the actual data). Data is recorded in 
the EBCDIC representation. 

The diskette is physically configured in 128 byte sectors; however, the logical record size may be 
set to any length from one to 128 bytes. Record lengths of less than 128 bytes will be recorded 
leaving the unused bytes of the sector null-filled. For the Basic Access Method, diskette records 
(logical records) always begin at the first data byte of the sector; there can only be one record 
per sector. 

Records are numbered sequentially, starting with zero. This relative record number (i.e., 
POSITION) is used to address the records. The Basic Access Method maintains a pointer to the 
sector following the last logical record of a dataset. This sector is called the EOD Sector. A 
dataset containing no data has an EOD = X'OO 00'. 

The concept of POSITION, EOD, BLKLEN, XFERLEN and OUTLEN are described within the 
keyword definitions on prior pages of this section. 

DISK Operations 

MDS usage of the various types of supported disks is not intended to be compatible with any 
other manufacturer. The software support is designed so that differences between types of disk 
drives are transparent to the user. 

A disk dataset is a series of logically connected records with a constant length (between 10 and 
4096 bytes) having a label describing the dataset configuration in the DISK Volume Table of 
Contents (VTOC). This dataset label contains the dataset-name and the absolute address for 
BOE and the relative address of EOD as well as a maximum allocation indicating a size which the 
dataset may not exceed. Data is recorded in EBCDIC representation. 

A DISK dataset is configured as logically connected records of a length which may be initially 
defined (or later redefined) using the Disk Utility Program. Records are numbered sequentially 
starting with zero (0). The concept of POSITION, EOD, BLKLEN, XFERLEN and OUTLEN 
are described within the keyword definitions on prior pages of this section. 



*See the "Diskette Organization Section" of the Series 21 Operator's Guide (Form No. M-3611). 
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Applicable operations for the Basic Access Method are: 



OPEN 

Purpose: 

Format: 
Description: 



Obtain access to a dataset on DISK or DISKETTE. 

0PEN( I OD-name, buffer, ERR: sn) 

The OPEN operation searches for the dataset specified in the IOD. The 
.DATASET, .VOLUME and .UNIT keywords are relevant to the OPEN 
operation. 

The programmer can specify this search in several ways according to the 
following table: 

Table 7-3: Search Operation By OPEN For DISK/DISKETTE 





VOLUME = nulls 


VOLUME not = nulls 


UNIT = 


search for dataset on any unit. 


search for volume on any unit; 
then search for dataset. 


UNIT not = 


search specified unit for 
dataset. 


verify volume on specified unit; 
then search for dataset. 



NOTE: The buffer length must be equal to 128 bytes. 

If the OPEN operation cannot be successfully completed, the error con- 
dition which caused the failure may be determined from the .ERRCODE 
keyword (see Appendix E). 

When a data set is being reopened for the purpose of appending to the file, the 
.POSITION parameter should be reset after the OPEN to contain the current 
value of EOD (i.e., IOD-name.POSITION=IOD-name.EOD) 



7-10 



READ 

Purpose: 

Format : 
Description: 



To transfer a data record from a dataset on DISK or DISKETTE to main 
memory. 

READ ( I OD-name, buff er , ERR: sn-1 , EOF: sn-2) 

The READ operation reads the record indicated by the .POSITION key- 
word and places it in the buffer supplied by the READ statement. The 
length of the record actually transferred may be referenced by means of the 
.XFERLEN keyword. Upon successful completion of the READ operation, 
the data is transferred from the DISK/DISKETTE record to the buffer and 
the value of the .POSITION keyword is incremented to point to the next 
record. 

If the supplied buffer is too short to contain the record read, an error is 
generated which may be referenced by means of .ERRCODE. If the sup- 
plied buffer is longer than the actual record, the remainder of the buffer is 
filled with blanks. The minimum length of a record is 1 byte for DISKETTE 
and 10 bytes for DISK. The maximum length of a record is 128 bytes for 
DISKETTE and 4096 bytes for DISK. 

If any errors are detected during the operation, the .POSITION keyword is 
not incremented. 

If a whole volume on DISKETTE is specified (first byte of dataset-nameis 
X'FF), UNIT must be specified. 

Accessibility to a diskette volume or dataset may be restricted according to 
the accessibility fields in the VTOC. 

The OPEN operation also establishes the usage of the dataset as 
EXCLUSIVE or SHARED by reference to the STATE parameter in the 
IOD. Bit 6 of the STATE parameter determines usage ("1" - EXCLUSIVE; 
"0" - SHARED). If the dataset is requested for exclusive use, the OPEN will 
be successful only if no other user has an open file for this dataset. If shared 
use is requested, the OPEN will be successful if all other files open for this 
dataset have also requested shared use. An entire volume may be opened 
for exclusive use if there are no other users with OPEN datasets on the 
volume. Opening the entire volume with shared usage allows the entire 
volume to be read but not written. 

At conclusion of OPEN, reference may be made to the volume-name, 
current record position, current EOD, record length, and EOE by means of 
the ACTUAL, .POSITION, EOD, .BLKLEN and EOE keywords. 

The OPEN operation gets the volume-name, EOD, BLKLEN, and EOE 
from the dataset label in the VTOC. The representations of EOD and EOE 
keywords are converted to relative displacement; BLKLEN is converted to 
binary. The current position is initially set to zero, to designate the first 
record in the dataset. 
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NOTE: There is no EOE keyword for DISK. 

Prior to the READ, the user may alter the value of the .POSITION keyword 
to point to any valid record, allowing for random retrieval of records. If 
.POSITION points to the EOD Sector at the beginning of the operation, the 
EOF exit is taken. If an attempt is made to read a record beyond the EOD 
Sector, the ERR exit is taken. 

Upon successful completion of READ, the .MARK keyword will contain a 
value derived from the mark byte of the diskette record. A value of X'OO' 
indicates the record is deleted. Values other than X'OO' indicate the record 
is not deleted. The mark byte and the .MARK keyword apply only to 
DISKETTE. 
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READLOCK 

Purpose: 

Format : 
Description: 



CHECKEOD 

Purpose: 

Format : 
Description: 



To transfer a data record from a dataset on DISK or DISKETTE to memory 
and to prevent any other user from reading that record. 

READLOCK(lOD-name, buffer, ERR: sn-1 , EOF: sn-2) 

A READLOCK operation is similar to a READ operation. The record 
described by the .POSITION keyword is locked to prevent read access 
through other IOD's. The .POSITION keyword is not incremented (in 
anticipation of a subsequent WRITE operation which updates the record 
and clears the lock). 

One record at a time may be locked for an IOD. 



To lock the EOD record of a dataset on DISK or DISKETTE and to prevent 
other users from accessing that record concurrently. 

CHECKEOD(IOD-name,ERR:sn) 

CHECKEOD is described in detail in Section 6. 
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WRITE 

Purpose: 

Format: 
Description: 



To transfer a data record (128 bytes) of data from memory to a dataset on 
DISK or DISKETTE. 

WRITE(l0D-name,buffer,ERR:sn-l,E0F:sn-2) 

The WRITE operation transfers the data from the supplied buffer to the 
dataset record at the location indicated by .POSITION. The POSITION 
keyword is automatically incremented by one upon completion. 

If the supplied POSITION is less than EOD, any existing data in the record 
is overwritten. If the POSITION is equal to EOD, the record is appended to 
the dataset and EOD is automatically incremented by one. If the 
POSITION is greater than EOD, the record is not written and the ERR exit 
is taken. If the record is shorter than the record length (defined in the data- 
set label of the VTOC), the remainder of the record is padded with blanks. 
For DISKETTE, if the logical record length (from the dataset label) is less 
than 128 bytes, the remainder of the 128 bytes is padded with nulls (X W). If 
the buffer length is longer than the record length, the data is truncated on 
the right. 

OUTLEN can be used to override a buffer-size, record-size mismatch. See 
OUTLEN under "KEYWORDS USED IN THE EXECUTION SECTION". 
If the WRITE operation has been preceded by a CHECKEOD or a 
READLOCK, successful completion of the WRITE releases the record. 
Prior to executing a WRITE operation, the .MARK keyword may be adjus- 
ted to write a deleted or a non-deleted record. The WRITE operation trans- 
fers the value in .MARK to the mark byte of the diskette record. X'OG" indi- 
cates a deleted record. Values other than null indicate a non-deleted 
record. For example, to write a deleted record: 

lOD-name.MARK = X'OO' 
WRITE(lOD-name.buffer,ERR:sn-l ,E0F:sn-2) 

The mark byte and the .MARK keyword apply only to DISKETTE. The 
effect of the WRITE operation on .POSITION and .EOD keywords is dis- 
cussed under WRITE in Section 6. Normal or abnormal completion codes 
of a WRITE may be referenced via the .STATUS and ERRCODE 
keywords. 

If an error condition occurs, the ERR exit is taken. If an end-of-file con- 
dition occurs, the EOF exit is taken. If the EOF branch is taken on the 
completion of the WRITE operation, the last available sector of the dataset 
has just been used. 
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RELEASE 

Purpose: 



Format: 
Description: 

SETEOD 

Purpose: 

Format: 
Description: 



To remove restricted access (without transferring data) on an external 
dataset record which has been the object of a READLOCK or 
CHECKEOD operation. 

RELEASE (lOD-name,ERR:sn) 
The RELEASE operation is described in detail in Section 6 of this manual. 

To update the system-maintained EOD (end-of-data) 

SETEOD(lOD-name,ERR:sn) 

The SETEOD operation is described in detail in Section 6 of this manual. 



FREESPACE 

Purpose: 

Format: 
Description: 



NOTE: Only the records between the beginning of the dataset and 
the EOD are considered to be valid data records. Normally, 
the EOD is only advanced in response to WRITE oper- 
ations at EOD. The program, however, can alter the value 
of EOD to any value between zero and EOE with the 
SETEOD statement. The value in POSITION at the time 
SETEOD is issued becomes the new EOD. Since, for DISK, 
the value of EOE can grow to expansion of the dataset, the 
SETEOD statement can also be used to preallocate space 
for the dataset. 

SETEOD can only be used with DISK/DISKETTE if 
ACCESS = EXCLUSIVE. 



To free allocated space beyond EOD (end-of-data). 

FREESPACE ( I OD-name, ERR: sn) 

FREESPACE (which applies only to DISK) is described in detail in Section 6. 
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CLOSE 

Purpose: 

Format : 
Description: 



To terminate access to an OPENed dataset on a DISK or DISKETTE. 
CLOSE(lOD-name, buffer ,ERR:sn) 

When CLOSE is executed, the system-maintained EOD (which is updated 
with each operation) is written to the dataset label of the VTOC. The 
VTOC EOD parameter is updated only at this time. When a MOBOL 
program signs off (see STOP in Section 6) any remaining open datasets for 
that program are automatically closed by the system. 

In addition to updating the EOD in the dataset label of the VTOC, the 
CLOSE operation resets the leftmost bit of the STATE keyword to zero. 
Thus, the STATE parameter may be examined to determine whether a 
dataset is OPEN or CLOSEd. 



NOTE: The buffer length must be equal to 128 bytes. 



7-16 



SEQUENTIAL INDEX ACCESS METHOD 

The Sequential Index Access Method is a means of accessing a dataset (the target dataset) via 
an index. The index dataset consists of record pointers indicating the sort sequence (the record 
pointers are sorted in ascending or descending order of the contents of the keyfields within the 
target records). Any number of index datasets (with differing sort sequences or keys) may 
reference the same target dataset. 

DMU (Data Management Utility Program) is used to create the index dataset. The user 
specifies sort fields which reference fields in the target dataset records. 

The index dataset is later used by a MOBOL application program to retrieve records, in a sorted 
order, from a target dataset. Using a sequential index requires two IOD's in the MOBOL 
program: one for the dataset containing the data records (the target dataset) and one for the 
index dataset. The index IOD must contain the TARGET keyword referencing the target IOD 
(TARGET=IOD-name of the target dataset). The index IOD must also include ACCESS=SEQ 
(see ACCESS described under "KEYWORDS USED IN THE DATA DEFINITION SECTION" 
on previous pages of this section). 

The operations that may be used with the Sequential Index Access Method include: 

OPEN 

CLOSE 

DELETE 

READ 

READLOCK 

RELEASE 

CHECKEOD 

SETEOD 

WRITE 

These operations function similarly to operations under the Basic Access Method except that 
all references for I/O operations are made through the index dataset. Operations using the 
Sequential Index Access Method affect the parameters of the IOD associated with the index 
dataset in the same manner as operations for the Basic Access Method. Parameters of the 
target IOD are adjusted by these operations to effect access to the target dataset. 
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RANDOM INDEX ACCESS METHOD 

The Random Index Access Method (RIAM) provides a means to access a target dataset by 
record content (keyfield) rather than relative record position. Using this access method 
requires the use of an index of the target dataset. This index is created by the Data Management 
Utility Program (DMU). DMU allows a user to specify keyfields by which the records are to be 
accessed. DMU creates an index dataset, which is separate from the target dataset, and must 
be identified by a separate IOD. The target dataset itself is not affected by DMU. The index 
dataset created by DMU consists of short records (four bytes each) containing pointers to the 
target dataset records. These short index records are positioned in the index dataset according 
to the result of a hashing of the key values contained in the user-specified keyfields. (The term 
hashing refers to a process of generating an arithmetic summation of the contents of the 
keyvalue.) 

The MOBOL application program supplies a particular KEYVALUE to RIAM. Then, RIAM 
hashes that value, locates the short record in the index (based on the hash value) and obtains 
the POSITION of the desired record in the target dataset. 

A MOBOL program may use RIAM by supplying certain IOD and keyword declarations in its 
Data Definition Section. These declarations include an IOD for the index dataset which 
specifies ACCESS=RAN, TARGET=IOD-name of the target dataset and KEYVALUE=data- 
name. The parameters of these keywords are detailed in "KEYWORDS USED IN THE DATA 
DEFINITION SECTION" on previous pages of this section. Applicable operations are: 



OPEN 

Purpose: 

Format: 
Description: 

READ 

Purpose: 

Format: 
Description: 



Obtain access to a dataset on DISK or DISKETTE. 

OPEN ( I OD-name, buff er , ERR: sn) 

Operations are similar to those described for the Basic Access Method. 
Both the index dataset and the target dataset must be OPENed. 



To transfer a data record from a dataset on DISK or DISKETTE to main 
memory. 

READ ( I ndex- I OD-name, buffer , ERR : sn -1 , EOF: sn-2) 

The field designated by the KEYVALUE keyword contains the desired 
search parameter. Since this data field is an RCD field, a MOBOL move 
statement (FIELD=Value : : ) may be used to set the search parameter. 

Once this data field is set, the READ is issued. RIAM will read the index 
dataset, find the correct target record position and transfer the data from 
the target record to the buffer. 



NOTE: The relationship between buffer length and record length is 
as described for the READ operation of the Basic Access 
Method. 
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READNEXT 

Purpose: 

Format: 
Description: 



READLOCK 

Purpose: 

Format: 
Description: 

RELEASE 

Purpose: 

Format: 
Description: 

DELETE 

Purpose: 

Format: 
Description: 



To transfer the next data record, having a keyvalue previously read, via an 
index dataset. 

READNEXT (index- I OD-name, buffer, ERR :sn-l, EOF: sn-2) 

When more than one record contains the same key value, this statement 
may be used to acquire the second record (and subsequent records, via 
repeated executions). When the series of duplicated key values is 
exhausted, the READNEXT operation takes the EOF:sn-2 branch. 



To transfer a data record from a dataset on DISK or DISKETTE to memory 
and to prevent any other user from reading that record. 

READL0CK( I ndex- I OD-name, buffer, ERR: sn-1 , EOF: sn-2) 

Operation of READLOCK for RIAM is identical to the operation described 
for the Basic Access Method. 



To remove restricted access (without transferring data) on an external 
dataset record which has been the object of a READLOCK operation. 

RELEASE ( I ndex- I OD-name, ERR: sn) 

Operation for RELEASE for RIAM is identical to the operation described 
for the Basic Access Method. 



To remove a target record position entry from an index dataset. 

DELETE( Index- lOD-name, ERR: sn) 

The DELETE operation is described in detail in Section 6 of this manual. 
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WRITE 

Purpose: 

Format: 
Description: 



INSERT 

Purpose: 

Format: 
Description: 

CLOSE 

Purpose: 

Format: 
Description: 



To transfer a data record of data from memory to a dataset on DISK or 
DISKETTE. 

WR I TE( Index- I OD-name, buffer, ERR :sn-l, EOF: sn-2) 

The WRITE statement does not go through the hashing process, but in- 
stead uses information in the target IOD provided by a prior READ to the 
index dataset. In RIAM, WRITE uses the relative record position of the 
target dataset just as in the Basic Access Method. That is, to WRITE a 
record to a target dataset, Target IOD-name. POSITION must contain the 
correct position value. This is accomplished as follows: READLOCK the 
record using the KEYVALUE method. This action will generate the correct 
target record position in the target IOD. 

The subsequent WRITE (e.g., WRITE (Index-IOD-name,buffer,ERR:sn)) 
will transfer the data from the buffer to the correct record position in the 
target dataset. 

For every record added to the target dataset, a new index is required. For 
every keyvalue modified in the target dataset, a new index entry is required 
(the existing index entry to this record should be deleted). The new record 
is created using a WRITE operation to the target dataset to establish the 
target .POSITION and the record value. The INSERT operation, then is 
executed. 



To cause a new entry to be included in an index dataset for an existing (but 
not previously indexed) record in the target dataset. 

INSERT( Index- I OD-name, ERR : sn) 

The INSERT statement is described in detail in Section 6. 

To terminate access to an OPENed dataset on a DISK or DISKETTE. 

CLOSE (I OD-name, buffer, ERR: sn) 

Operations are similar to those described for the Basic Access Method. A 
CLOSE must be executed against both the index dataset and the target 
dataset. 
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The keywords used for I/O operations for DISK and DISKETTE are tabled below. 
Table 7-4: Keywords Used For I/O Operations 



Keyword 


Basic Access Method 


Sequential Index 


Random Index 


ACCESS 


X 


X 


X 


ACTUAL 


X 


X 


X 


BLKLEN 


X 


X 


X 


DATASET 


X 


X 


X 


EOD 


X 


X 


X 


EOE (DISKETTE only) 


X 


X 


X 


ERRCODE 


X 


X 


X 


KEYVALUE 






X 


MARK (DISKETTE only) 


X 


X 


X 


OUTLEN 


X 


X 


X 


POSITION 


X 


X 


X 


STATE 


X 


X 


X 


STATUS 


X 


X 


X 


TARGET 




X 


X 


UNIT 


X 


X 


X 


VOLUME 


X 


X 


X 


XFERLEN 


X 


X 


X 
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TAPE I/O OPERATIONS 

Magnetic tape consists of a series of datasets (files) each of which is terminated by a single tape 
mark. The end of the last dataset (i.e., multifile) is terminated by double tape marks. Only one 
OPEN is required to access all datasets (files) on the tape. Following the OPEN, the program 
may process all or selected datasets on the magnetic tape volume. 

Applicable operations for TAPE are: 



OPEN 

Purpose: 

Format: 
Description: 



READ 

Purpose: 

Format: 
Description: 



To gain access to a magnetic tape drive. 

OPEN ( I OD-name, buffer, ERR: sn) 

When the tape dataset is OPENed, the leftmost bit of the .STATE keyword 
is set to one (1) indicating the open state of the dataset. 

The OPEN operation establishes the usage of the tape as EXCLUSIVE or 
SHARED by reference to the STATE parameter in the IOD. Bit 6 of the 
STATE parameter determines usage ("1"-EXCLUSIVE; "(T-SHARED). If 
the tape is requested for exclusive use, the OPEN will be successful only if 
no other user has the tape open as a file. If shared use is requested, the 
OPEN will be successful if all other files open for this tape have also re- 
quested shared use. 

If the OPEN operation cannot successfully be completed, the error con- 
dition which caused the failure may be referenced by means of the 
.ERRCODE keyword (see Appendix E). 



Transfer a record from a magnetic tape file to main memory. 
READ (I OD-name, buffer, EOF: sn, ERR: sn) 

After a READ operation, .XFERLEN contains the length of the data record 
just read. 

ERRCODE and STATUS receive the completion code after READ is 
executed. 



WRITE 

Purpose: 

Format: 
Description: 



Transfer a record from memory to a magnetic tape file. 

WRITE (I OD-name, buffer, EOF: sn-1 ,ERR:sn-2) 

In a statement prior to the WRITE, the IOD-name.OUTLEN parameter 
may be used to override the buffer length for one WRITE operation (see 
"KEYWORDS IN THE EXECUTION SECTION" in this section). 

ERRCODE and STATUS receive the completion code after WRITE is 
executed. 
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MARK 

Purpose: 

Format: 
Description: 



BACKSPACE 

Purpose: 

Format: 
Description: 



REWIND 

Purpose: 

Format: 
Description: 

REWINDLOCK 

Purpose: 

Format: 
Description: 

CLOSE 

Purpose: 

Format: 
Description: 



Write a tapemark. 

MARK(lOD-name,ERR:sn) 

The TAPE is positioned to the interrecord gap following the tapemark. 

ERRCODE and STATUS receive the completion code after MARK is 
executed. 

Move the tape back one record or one tapemark. 
BACKSPACE ( I OD-name, ERR: sn) 

The BACKSPACE operation positions the tape back one record (or tape 
mark). 

ERRCODE and STATUS receive the completion code after BACKSPACE 
is executed. 

Position the tape to load-point. 

REWIND(lOD-name,ERR:sn) 

The REWIND operation is described in detail in Section 6. 

Position the tape to load-point and make the tape unavailable for use. 

REWINDLOCK( I OD-name, ERR: sn) 

The REWINDLOCK operation is described in detail in Section 6. 



Release access to the magnetic tape drive. 
CLOSE (I OD-name, buffer, ERR: sn) 

When the tape file is closed, the leftmost bit of the STATE keyword is reset 
to zero (0) to indicate that the file is no longer OPEN. 

ERRCODE and STATUS receive the completion code after execution of 
CLOSE. 
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SKIPFILE 

Purpose: 

Format: 



Description: 



To position a magnetic tape beyond the next encountered tape mark. 

SKIPFILE(lOD-name,ERR:sn) 

The SKIPFILE operation is described in detail in Section 6. 



NOTE: Use of a data recorder as the magnetic tape drive is the 
same as for standard TAPE except that the only applicable 
operations are: OPEN, CLOSE, READ and WRITE. 

Keywords used or referenced in I/O operations for TAPE are: 

ERRCODE 

OUTLEN 

STATE 

STATE 

STATUS 

UNIT 

XFERLEN 
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PRINTER I/O OPERATIONS 

There are two modes of controlling forms on the printer I/O device: Basic and VFU. The basic 
mode is the default value and is used for any file that has not been expicitly opened for VFU use. 
The VFU mode is explained in this subsection on subsequent pages. 

Applicable operations for PRINTER in either mode are as follows: 



OPEN 

Purpose: 

Format: 
Description: 



Obtain access to the printer. 

OPEN ( I OD-name, buffer, ERR: sn) 

When OPEN is executed, the printer denoted by IOD-name is made avail- 
able for data transfer. The leftmost bit of the STATE keyword value is set to 
one (1) to indicate that the printer is OPEN. Also, bit 6 is read to establish 
the state of the device (see the STATE keyword under "KEYWORDS 
USED IN BOTH THE DATA DEFINITION AND THE EXECUTION 
SECTION" on previous pages of this section). Bit is read to determine the 
source of SLEW information for individual print operations. 

ERRCODE and STATUS receive the completion code after execution of 
OPEN. 



CHECKFORMS 

Purpose: Obtain the current printer control and positioning information. 

Format: CHECKFORMS ( I OD-name, ERR: sn) 

Description: The CHECKFORMS operation is described in detail in Section 6. 



SETFORMS 

Purpose: 

Format: 



Description: 



To reset active printer control parameters. 

SETFORMS ( I OD-name, ERR: sn) 

The SETFORMS operation is described in detail in Section 6. 
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PRINT 

Purpose: 

Format: 
Description: 



WRITE 

Purpose: 

Format: 
Description: 

CLOSE 

Purpose: 

Format: 
Description: 



To activate printing with forms control. 
PRINT(lOD-name,buffer,EOF:sn-l ,ERR:sn-2) 

If, during a PRINT or WRITE operation, the slew value chosen causes the 
line position to exceed the bottom of a form (lines per form), an end-of-form 
is generated. The PRINT operation is performed before the EOF exit is 
taken. The slew value supplied by the application program is not changed. 

The POSITION parameter is adjusted to reflect the relative line number 
following execution of PRINT. 

In a statement prior to PRINT, .OUTLEN may be assigned a value to over- 
ride the buffer length for one PRINT operation. 

ERRCODE and STATUS receive the completion code after execution of 
PRINT. 



To activate printing with forms control. 
WRITE(lOD-name,buffer,EOF:sn-l ,ERR:sn-2) 
The WRITE operation is identical to the PRINT operation. 

Release access to the printer. 

CLOSE ( I OD-name, buffer, ERR: sn) 

When CLOSE is executed, the leftmost bit of the .STATE parameter value 
is reset to zero (0) to indicate that access to the printer is no longer 
available. 

ERRCODE and STATUS receive the completion code after execution of 
CLOSE. 
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VFU (VERTICAL FORMS UNIT) 

The VFU mode is used when the forms control information as well as the print data is contained 
in the buffer. The forms control information (slew value) is kept in the first position of the data 
buffer. In the standard mode, the forms control information is contained in the IOD (.SLEW 
keyword) and the buffer contains print data only. 

Prior to OPEN time, selection of the VFU mode is made by setting the rightmost bit of the 
.STATE parameter. The selection remains active until a CLOSE is executed on the device. 

In the VFU mode, the program can skip or slew lines before or after PRINT. Slewing is to move 
paper a specified number of lines relative to the current position. Skipping to a channel is 
controlled on many printers by a carriage control tape which terminates paper motion upon 
detection of a punched hole in the designated channel. With the Series 21 System, the carriage 
control tape is simulated to support channels 1 through 12 for 132 lines. 

The bit encoding for the slew value is: 



Ulln 


nnnn 


OlOn 


nnnn 


lOOn 


nnnn 


OOOn 


nnnn 


lOlx 


xxxx 



Skip to Channel N - then print 
Slew N lines - then print 
Print - then skip to Channel N 
Print - then Slew N lines 
Reset the VFU Table 



The format of the buffer used to reset the VFU Table is shown below: 



AO 





























Reset VFU Table 
Lines per page 
First channel setting 
Second channel setting 






Fifteenth channel setting. 



The first byte of the VFU Table contains the value X'AO' to indicate that the remaining contents 
of the buffer specify printing control information. The second byte contains the value for lines 
per page (the total number of lines between perforations on the paper). The subsequent 15 byte- 
pairs describe the channel settings. Each channel setting consists of a channel number (1-12) 
and the corresponding line number (1 to lines per page). 

Subsequent to establishing values for the VFU Table, slew values in the data buffer are 
interpreted accordingly. Whenever a slewing operation causes the paper to exit a line 
containing either Channel 9 or Channel 12, a skip to Channel 1 (top-of-form) occurs. 
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Example: The example below illustrates opening the printer for VFU mode and establishing 
particular VFU Table values. 



SAMPLE PROGRAM SEGMENT TO MODIFY VFU TABLE 



I0D: LIST = PRINTER; 

RCD: VFUTBL 

C0NTR0L(1)=X'A0' 
LINESPP(1)=X'42' 
DEF1 (2)=X'010r 
DEF2 (2)=X'0207' 
DEF3 (2)=X '031 ' 



DEFINE PRINT DEVICE 



RESET VFU TBL 
SET LINES PER 
SET CHANNEL 1 
SET CHANNEL 2 
SET CHANNEL 3 



SLEW VALUE 
PAGE = 66 
TO LINE 1 (TOP- 
TO LINE 7 
TO LINE 16 



OF-FORM) 



DEF12 (2)=X'0C42' 



SET CHANNEL 12 TO LINE 66 (BOTTOM OF 
FORM) 



START 



LIST.STATE=X'4l ' 

0PEN(LIST, BUFFER, ERR:999) 

PR I NT(L I ST, VFUTBL, EOM: 8 10, ERR: 999) 



SET EXCLUSIVE USE/VFU MODE 
OPEN PRINT DEVICE 
REPLACE VFU TABLE 



END 



Keywords used or referenced in I/O operations for PRINTER are: 

ERRCODE 

FORMS 

OUTLEN 

POSITION 

SLEW 

STATE 

STATUS 

UNIT 
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C OMPATIBLE CHANNEL I/O OPERATIONS 

Compatible Channel (COMP CHAN) allows the interchange of data between the Series 21 
System and the MDS System 2400. 

Using this channel as an interface, the Series 21 System acts as an I/O device for the System 
2400. The System 2400 views the Series 21 as a magnetic tape drive. For data interchange to 
successfully occur, the System 2400 must be operating under the control of a program whose 
operations are compatible with the MOBOL program that is directing the Series 21; that is, 
operations between the two must correspond. For example, when the 2400 is executing a 
READ, the corresponding operation for the Series 21 is a WRITE. 

Both the Series 21 and the System 2400 issue error and status information. Error information is 
passed between each system and its corresponding application program. Status information is 
exchanged between the Series 21 and the System 2400. 

When the System 2400 issues a command to an I/O device, it receives two status 
values: 'Oldstatus' and 'Newstatus'. Oldstatus reflects the result of the last operation. 
Newstatus reflects the ability of the device to carry out the current operation. 

On the Series 21, Newstatus is determined by the system. When transmitted to the System 
2400, it will reflect READY and WRITE ENABLED. Oldstatus is maintained by the system and 
passed to the MOBOL application keyword .XFERSTATUS. 

If required, this parameter may be modified by the application program by referencing 
.XFERSTATUS prior to the next COMP CHAN operation. 

XFERSTATUS has the following bit assignments which are compatible with Oldstatus and 
Newstatus: 



Byte 1 

V - INTERRUPT 

2 6 - NOT BUSY 

25 - BUSY 

2 4 - TAPE MARK DETECTED 

23 - DATA CHECK 

22 - EQUIPMENT CHECK 

2 1 - OVERRUN/RUNAWAY 

2° - READY 

Applicable operations for COMP CHAN are: 



Byte 2 

T - SHORT TRANSFER 

26 - 7 CHANNEL 

25 - WRITE ENABLED 

2 4 - RUNAWAY 

23 - REWINDING 

22 - EOM DETECTED 

2 1 - LOADPOINT 

2° - LOCAL 



OPEN 

Purpose: 

Format: 
Description: 



To obtain access to a compatible channel for the purpose of data inter- 
change with the MDS 2400. 

OPEN ( I OD-name, buf f er , ERR: sn) 

When the COMP CHAN dataset is OPENed, the leftmost bit of the 
.STATE parameter is set to one indicating the open state of the dataset. 
ERRCODE and STATUS receive the completion code after OPEN is exe- 
cuted. Newstatus and the parameter .XFERSTATUS are both initialized to 
reflect READY, LOADPOINT and WRITE ENABLED. (The system 2400 
will continue to receive a status of LOCAL until the next Series 21 is 
issued.) 
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READ 

Purpose: 

Format: 
Description: 



To transfer data from the compatible channel to the Series 21 System. 

READ ( I OD-name, buffer, ERR: sn-1 ,E0F:sn-2) 

Oldstatus is updated from .XFERSTATUS and the Series 21 is available for 
a System 2400 command to be received. The next action executed de- 
pends upon the System 2400 command received. 



2400 Command 



Action 



WRITE 



WRITE TAPE 
MARK 



READ 



Other 
Commands 
(Or No Command 
i.e., Time Out) 



Data is transferred through the channel to the 
application buffer. 

.XFERSTATUS is set to reflect normal 
WRITE termination (the System 2400 con- 
tinues to receive a busy status until the next 
Series 21 operation is issued). 

Newstatus is updated to cancel the LOAD- 
POINT status bit. .XFERLEN contains the 
length of the data record just read by the 
Series 21. 

After the READ, control is returned to the 
next inline statement. 

.XFERSTATUS is set to the normal WRITE 
TAPE MARK termination (the System 2400 
continues to receive a busy status until the 
next Series 21 operation is issued). 

Newstatus is updated to cancel the LOAD- 
POINT status bit and control is returned to the 
EOF:sn-2 exit. 

The Series 21 READ is suspended and control 
is returned to the ERR:sn-l exit. 

(If the Series 21 executes a WRITE operation 
in response to this exit, the System 2400 oper- 
ation receives the data from the application 
buffer and the .XFERSTATUS parameter is 
set to reflect normal READ termination. If the 
Series 21 executes any other operation, pro- 
cessing begins as described for that operation. 
The System 2400 READ operation is can- 
celled. Subsequent System 2400 activity is 
application dependent.) 

ERRCODE will indicate the command re- 
ceived from the System 2400 and control is re- 
turned to the ERR:sn-l exit. 
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SENDEOF 

Purpose: 

Format: 
Description: 



To transfer an end-of-file indicator (tape mark) to the compatible channel. 

SENDEOF(lOD-name,ERR:sn) 

Oldstatus is updated from .XFERSTATUS and the Series 21 is available for 
a System 2400 command to be received. The next action executed de- 
pends upon the System 2400 command received: 



2400 Command 



READ 



WRITE 



WRITE 
MARK 



Other 
Commands 
(Or No Command, 
i.e., Time Out) 



Action 



The Series 21 sends the standard EOF data 
block (which is a special one-byte record) to 
the System 2400. .XFERSTATUS is set to re- 
flect TAPE MARK DETECTED; this com- 
bination will cause the System 2400 to recog- 
nize an end-of-file condition. (The system 2400 
continues to receive a busy status until the 
next Series 21 operation is issued.) 

Newstatus is updated to cancel the 
LOADPOINT status bit. 

The Series 21 SENDEOF is suspended and 
control is returned to the ERR:sn-l exit. 

(If the Series 21 executes a READ operation in 
response to this exit, the System 2400 oper- 
ation transmits its data to the application 
buffer and the .XFERSTATUS parameter is 
set to reflect normal WRITE termination. If the 
Series 21 executes any other operation, pro- 
cessing begins as described for that operation. 
The System 2400 WRITE operation is can- 
cancelled. Subsequent System 2400 activity is 
application dependent.) 

The Series 21 SENDEOF is suspended and 
control is returned to the ERR:sn-l exit. 

(If the Series 21 executes a READ operation in 
response to this exit, the System 2400 oper- 
ation is considered complete and the EOF: 
sn-2 exit associated with the Series 21 READ is 
taken. If the Series 21 executes any other 
operation, processing begins as described for 
that operation. The System 2400 WRITE 
TAPEMARK operation is cancelled. Subse- 
quent System 2400 activity is application 
dependent.) 

Control is returned to the ERR:sn-l exit. 



ERRCODE will indicate the command re- 
ceived from the System 2400 and control is re- 
turned to the ERR:sn-l exit. 
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WRITE 

Purpose: 

Format: 
Description: 



To transfer data to the compatible channel from the Series 21 System. 

WRITE (lOD-name, buffer, ERR:sn-l ,E0F:sn-2) 

In a statement prior to WRITE, .OUTLEN may be used to override the 
buffer length for one WRITE operation. 

OLDSTATUS is updated from .XFERSTATUS and the Series 21 is 
available for a System 2400 command to be received. The next action exe- 
cuted depends upon the System 2400 command received: 



2400 Command 



READ 



WRITE 



Action 



Data is transferred through the channel from 
the application buffer. 

.XFERSTATUS is set to reflect normal READ 
termination (the System 2400 continues to 
receive a busy status until the next Series 21 
operation is issued). 

Newstatus is updated to cancel the LOAD- 
POINT status bit. 

.XFERLEN will be updated to indicate the 
length of the data record just transferred and 
control is returned to the next in-line 
statement. 

The Series 21 WRITE is suspended and con- 
trol is returned to the ERR:sn-l exit. 

(If the Series 21 executes a READ operation in 
response to this exit, the System 2400 oper- 
ation transmits its data to the application 
buffer and the .XFERSTATUS parameter is 
set to reflect normal WRITE termination. If the 
Series 21 executes any other operation, pro- 
cessing begins as described for that operation. 
The System 2400 WRITE operation is can- 
cancelled. Subsequent System 2400 activity is 
application dependent.) 
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2400 Command 



CLOSE 

Purpose: 

Format: 
Description: 



WRITE TAPE 
MARK 



Other 
Commands 
(Or No Command 
i.e., Time Out) 



Action 



The Series 21 WRITE is suspended and con- 
trol is returned to the ERR:sn-l exit. 

(If the Series 21 executes a READ operation in 
response to this exit, the System 2400 oper- 
ation is considered complete and the Series 21 
application EOF:sn-2 (associated with the 
READ) exit is taken. If the Series 21 executes 
any other operation, processing begins as 
described for that operation. The system 2400 
WRITE TAPEMARK operation is cancelled. 
Subsequent System 2400 activity is appli- 
cation dependent.) 

Control is returned to the ERR:sn-l exit. 
ERRCODE will indicate the command re- 
ceived from the System 2400 and control is re- 
turned to the ERR:sn-l exit. 



To release access to the compatible channel. 

C LOSE ( I OD-name, buffer, ERR :sn) 

OLDSTATUS is updated from .XFERSTATUS and Newstatus is updated 
to show LOCAL. The Series 21 is available to allow the System 2400 to take 
status. ERRCODE receives the completion code after execution of 
CLOSE. 

When the compatible channel is closed, the leftmost bit of the .STATE 
keyword is reset to zero. 

MOBOL keywords used by the Series 21 System in I/O operations for COMP CHAN are: 

ERRCODE 

OUTLEN 

STATE 

STATUS 

XFERLEN 

XFERSTATUS 
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SECTION 8: STATION I/O OPERATIONS 

The STATION is an interactive I/O device consisting of a keyboard and a video display screen 
(CRT). Station operations may be directed by MOBOL application programs to perform the 
following functions: 

1. Solicit data from the keyboard. 

2. Format the entry of data using screen displays, guide messages, etc. 

3. Check correctness of entered data by comparing to predefined parameters. 

4. Report run-time status during execution of application programs. 

5. Accept operational information from the keyboard operator (e.g., SEL MODE). 

6. Display error messages and obtain responses (and differentiate these responses from 
normal entry). 

7. Read data on the display screen and transform the images into data that can be 
processed by the application program. 

The components involved with station operations may be divided into two categories: 

1. Structural or definition components which define parameters for the station device and 
define the format for data to be entered through the keyboard. These components 
appear in the Data Definition Section. They are: 

I0D 

KET 

2. Operational or execution components which direct operations of the station during pro- 
gram execution. These components appear as statements in the Execution Section. 
They are: 

KENTER RESUMERR READSCREEN 

KVERIFY ERROR READKEY 

RESUME NOTIFY 

Keywords associated with these components are described in Section 7. 
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KEYWORDS USED IN THE DATA DEFINITION SECTION 

The keywords that may be used in the Data Definition Section in the IOD statements for the 
station relate to error message text. This text is used in the error-sequence associated with the 
internally detected keying errors. 

When an error is detected and the corresponding message has been established by the IOD, the 
message text is displayed on line 2. Also,, the Error Tone/Flasher is activated; RESET must be 
keyed to acknowledge the message. Following depression of RESET, the original line 2 display is 
restored and operation continues. (For a description of the resulting message display, see the 
ERROR statement later in this section.) 

When the corresponding message has not been established by the IOD, the Error Tone/Flasher 
is activated and RESET must be keyed to acknowledge the message. 

An error message may be given a display value by means of a keyword assignment in the IOD. 
The format is: 

KEYWORD = alphanumeric string 

Each keyword and the condition under which its value is displayed are tabled below: 

KEYWORD ERROR CONDITION 



BOUND 

FILTER 

KEYBOARD 

MCSEQ 

MISCOMP 
OPERATIONAL 

SIGNIF 



Incorrect key used to release a field (e.g., SKIP keyed for an EXIT 
field). 

Incorrect type of data keyed for a field (e.g., an alphabetic character 
keyed for a NUMERIC field). 

Hardware error, queue overflow, unassigned key or invalid dead key 
sequence (e.g., the application is more than 15 keystrokes behind the 
operator when the 16th key is struck). 

Multi-code error (i.e., the first or second key after depression of multi- 
code is not a hexadecimal digit). 

Character miscompare during a field verify operation. 

Inappropriate control or data key (e.g., data keyed when the cursor is 
positioned between two fields in screen mode). 

Incorrect number of significant data characters present when field re- 
lease is attempted. 



The length of the string assigned to a keyword is limited to 38 characters. 
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Example: 



IOD: CRT = STATION 



MCSEQ = 'MULTI-CODE ERROR 1 



Keywords appearing in the KET statement are presented under context specifications for the 
KET in Section 5. 



KEYWORDS USED IN THE EXECUTION SECTION 

Keywords that may be used in the Execution Section relate to the status and parameters of 
station operations. The format for a reference is: 



IOD- name • keyword 
KEYWORD DEFINITION 



KETNUM 



NOTE 
TYPE 



FLDCOUNT 



FLDNUM 



CURFLD 



A one-byte binary number designating the currently active KET. The 
first defined KET in the Data Definition Section is numbered zero 
(XW) and each subsequently defined KET is assigned a number in 
sequence. 

Each is a one-byte binary number corresponding to the TYPE and 
NOTE values associated with the currently active KET. TYPE and 
NOTE values may be used to represent anything desired or required 
by the programmer. 

A one-byte binary number designating the number of fields within the 
currently active KET. 

A one-byte binary number designating the currently active field of the 
currently active KET. The first field of the KET is always assigned a 
zero (0); each subsequently defined field within the KET is assigned a 
number in sequence. 

An alternate name for the currently active field of the currently active 
KET. See the RESUME statement for details. 
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KEYWORD 

SHIFT 



DEFINITION 



A one-byte binary number designating the preferred shift. The value 
normally reflects the preferred shift for the current field but may be set 
by the application as a parameter for the READKEY operation. 
SHIFT is described in detail in Section 5 of this manual. The shift 
parameter encoding as tabled: 



KEYSTROKE 



MATCH 



CHANGE 



CONTROL 
NUMPAD 
NOLABEL 
XCONTROL 



LINE 



UNIT 



PREFERRED 
SHIFT 

LETTER 

DIGIT 

TEXT 



IOD 
PARAMETER 

BINARY ZERO (X'OO') 
BINARY ONE (X'OT) 
BINARY TWO (X'02') 



A three-byte binary number which is incremented by one for each 
keystroke. 

A three-byte binary number which is incremented by one for each 
data key that results in no change to the current data character. 

A three-byte binary number which is incremented by one for each 
data key that results in a change to the current data character. 

These status parameters are set when a station operation is inter- 
rupted for application processing. Each parameter is one-byte in 
length. The value of the control key, if any, that caused the inter- 
ruption is recorded in its appropriate keyword parameter. The other 
parameters will contain a code of X'FF' indicating that they do not 
record the control key value. 

A one-byte binary number used in conjunction with READSCREEN. 
The initial-value is one. 

A one-byte value designating the source for key data. The values 
currently assigned signify that the source for key data is constant for 
the execution of the application and designate the appropriate station 
as tabled: 



UNIT Value 


Source for Key Data 


X'01' 


Station No. 1 


X'02' 


Station No. 2 


X'03' 


Station No. 3 


X'04' 


Station No. 4 
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RENTER 

Purpose: 



Format: 



Description: 



To activate a KET for key entry. 

KENTER (lOD-name, KET-name, ESC:sn-l, ERR:sn-2) 

The KET specified by KET-name is activated and the key entry pro- 
cess is executed in accordance with the specifications contained in 
KET-name. The IOD-name must designate the STATION device. 

When the KENTER statement is executed, display and keying oper- 
ation are primarily controlled by a key entry process which is defined 
by the active KET. This process is outlined as follows: 

1. The KETNUM, TYPE and NOTE keyword fields of the IOD are 
transcribed from the corresponding fields of the KET. 

2. The CRT is reconfigured, if necessary, to correspond to the 
CRTSIZE keyword setting of the KET. The section of the display 
described by the BLANK keyword of the KET is space filled. 

3. The operator prompting messages are displayed. 

4. The contents of all data fields are displayed. 

5. The FLDNUM keyword is set to zero. (If the clause INIT= 
ESCAPE is coded in the KET, the initial-value of FLDNUM may 
be set by the application. The statement in the ESC clause is exe- 
cuted at this point so that a specific field may be designated as the 
initial field.) Beginning with the field identified by FLDNUM, each 
data field is selected for processing in the order in which the field 
appears in the KET. The MODE parameter of the associated KET 
statement determines which of the two variations of the key entry 
process is to be employed. See Field Mode and Screen Mode on 
subsequent pages. 

When the last field has been selected and processed, execution of the KENTER statement is 
complete and control passes to the next statement. Transfer to the next statement occurs 
immediately if the RELEASE=AUTOMATIC clause is present in the KET; otherwise, ENTER 
must be pressed. 

During the execution of the KENTER statement, the key entry process may be interrupted and 
control may be transferred to a labeled statement. This can be effected either by specifying a 
field post-processing or pre-processing routine in the KET, or the operator can signal an escape 
request which causes a transfer of control to the associated statement labeled sn-1. 

The operator signals the intention to escape by pressing certain labeled control keys, a numeric 
pad key when the NUMPAD=ESCAPE clause is present in the KET, or any unlabeled key. 
These keys are called user-defined keys. When control passes to the statement labeled sn-1, the 
CONTROL, NUMPAD, or NOLABEL keyword indicates which user-defined key caused the 
escape. If the "ESC:sn-l" clause is omitted from the KENTER statement, depression of any 
user-defined key is ignored and the execution of the key-entry process is continued. 

Control can be returned to an interrupted execution of the key-entry process using the 
RESUME or RESUMERR statement. 
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The action of both system and user-defined control keys is presented in Tables 8-1 and 8-2 on 
subsequent pages. 

If the RENTER statement cannot be executed due to parameter errors or logically inconsistent 
operation sequences (e.g., directing that execution be RESUMED at a non-existing field), an 
error condition results and the ERR exit is taken. If no ERR exit is coded, execution of the 
program is cancelled. 
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DATA ENTRY TWO KEYBOARD 
Figure 8-1: Identification Of Operator STATION Control Keys 



Operator STATION symbolic control keys are identified as follows for all keyboards: . 



1. 
2. 
3. 

4. 



A | 
B t 

c -v 

D «- 



= FIELD BACKSPACE 

= FIELD FORWARD 

= CHARACTER BACKSPACE 

= CURSOR CONTROL KEYS: 

A. DOWN 

B. UP 

C. RIGHT 

D. LEFT 
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FIELD MODE 

When the MODE=FIELD clause is specified in the KET, the order of field selection is 
determined primarily by the ordering of the field-specifications within the KET or by explicit 
program direction. 

The program may interact with the key entry process by using field processing routines 
identified in the KET. A field post-processing routine, designated within a field specification by 
"sn-post", is executed following the completion of field key entry to allow program examination 
of the field. A field pre-processing routine, designated by ",sn-pre" is executed upon re-selection 
of a field in anticipation of re-keying the field (e.g., Field Backspace). 

Field completion is operator-initiated by the depression of one of the following: 

1. An appropriate field-release key (SKIP, EXIT or-); 

2. A data key in the rightmost position of a field for which mandatory boundary checking is 
not specified; or, 

3. The Field Forward key. 

The field post -processing routine (sn-post) is then executed, provided that the following field 
validation tests are successful: 

1. Each character within the field is of the proper character class; and, 

2. The field contains the required number of significant characters. 

Otherwise, the key entry process signals an error to the operator by means of the error- 
sequence and the appropriate error message text. 

Field post-processing routines can: 

1. Inspect the completed field to accept or to reject the field according to application- 
dependent criteria. 

2. Alter or generate the contents of related KET fields. 

3. Perform application-related computations (e.g., increment an accumulator). 

Field re-selection is operator-initiated by the depression of the Field Backspace key when the 
cursor is at the first position of a field. The field pre-processing routine (sn-pre) is then executed 
for the preceding field (provided that such a field exists). 

Field pre-processing routines can: 

1. Accept or reject the operator implied intention to re-key the field. 

2. Alter the contents of related KET fields. 

3. Perform application-related computations (e.g., decrement an accumulator). 

An omitted field-processing-routine designator for the field signifies that no program interaction 
is required for the corresponding event. 
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Because of the serial nature of field selection, either forward or backward, the operator may not 
select fields for entry in an order which comprises the integrity of balanced sn-post and sn-pre 
field processing exits. 

Two macro control keys are provided to facilitate operator-initiated restart or premature 
termination: HOME and ENTER. HOME corresponds to the number of repeated depressions 
of the Field Backspace key ( |*- ) required to position the cursor to the first field of the KET 
which allows key entry (i.e., not a PROTECTED field). 

ENTER corresponds to the number of repeated depressions of the Field Forward key ( -*l ) 
required to position the cursor after the last field of the KET; the next statement following the 
RENTER statement is then executed. 

When the HOME or ENTER keys are used, the field processing routines are activated (as 
described above) for each field affected by the positioning. The macro control-key sequence 
terminates prematurely if one of the following occurs: 

1. A field validation test is failed; 

2. The field processing routine rejects the action (i.e., issues a RESUMERR); or, 

3. The field processing routine explicitly selects a field out of sequence (i.e., a directed 
RESUME). 

The four cursor control keys ( 1 1 -♦ *- ) an d the Character Backspace key ( <- ) can be 
used to position the cursor within a field for individual character correction. Any depression of 
these keys which would result in the cursor being positioned outside of the field is ignored. 
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SCREEN MODE 

When the MODE=SCREEN clause is specified in the KET, the order of field selection is 
determined primarily by the ordering of the field-specifications within the KET. Operator- 
controlled cursor positioning or explicit program direction may be used to alter the order of field 
selection. 

The program may interact with the key entry process by using field processing routines 
identified in the KET. In a manner similar to FIELD mode, the post-processing routine (sn-post) 
is executed following completion of field key entry. The field pre-processing routine (sn-pre) is 
executed upon re-selection of a field in anticipation of re-keying the field. 

In SCREEN mode, the criteria for completion and re-selection differ slightly from those used in 
FIELD mode. 

In SCREEN mode, the operator may position the cursor anywhere on the display whenever a 
field is not selected. A field is selected from the time that field re-selection takes place (described 
below) until field completion occurs (also described below). 

Field re-selection is operator-initiated by the depression of a: 

1. Data key; 

2. Field release key (SKIP, EXIT, or-); or, 

3. User-defined key. 

In these cases, the cursor must be positioned within a field. The pre-processing routine (sn-pre) 
for the field is executed when one of the above keys is first depressed within a field. The re- 
selection key itself is retained in anticipation of the response from the field pre-processing 
routine. 

The field pre-processing routine can: 

1. Either accept or reject the intention to re-key the field. 

2. Alter the contents of related KET fields. 

3. Perform application-related computations. 

Because the re-selection key has not yet caused the field contents to be modified, the field 
pre-processing routine can access the original field contents. If the field pre-processing routine 
rejects the re-selection, the original re-selection key is not further processed. 



8-9 



Field completion is possible only if a field has been successfully re-selected and has not already 
been completed. In this case, field completion is operator-initiated by the depression of one of 
the following: 

1. An appropriate field release key (SKIP, EXIT, or -); 

2. A data key in the rightmost position of a field for which mandatory boundary checking is 
specified; 

3. The Field Forward key ( — ») ); 

4. The Field Backspace key ( \* — ), if the cursor is at the first position of the field; or, 

5. A cursor control key ( 4 1 —+*-) which would result in a new cursor position outside 
the field display area. 

The field post-processing routine (sn-post) is then executed, provided that the following field 
validation tests are successful: 

1. Each character within the field is of the proper character class; and, 

2. The field contains the required number of significant characters. 

The field post-processing routine can: 

1. Inspect the completed field and either accept or reject the field according to appli- 
cation-dependent criteria. 

2. Alter or generate the contents of related KET fields. 

3. Perform application-related computations. 

An omitted field-processing-routine designator for the field signifies that no program interaction 
is required for the corresponding event. 

The operator may not compromise the integrity of balanced sn-pre and sn-post field processing 
exits, even though the fields can be selected in a non-serial order. 

When no field is currently selected and the cursor is moved through a field as an intermediate 
step in using the cursor positioning keys or field positioning keys, the field processing routines 
for these fields are not executed. The operator must explicitly re-select the field as described 
earlier. 

Two macro control keys are provided to facilitate operator-initiated restart or premature 
termination: HOME and ENTER. HOME corresponds to the repeated depression of the field 
backspace key ( |4— ) required to position the cursor to the first field of the display. 

ENTER corresponds to the repeated depression of the Field Forward key ( — H ) required 
to position the cursor after the last field of the display; the next statement following the RENTER 
statement is then executed. 

When the HOME or ENTER keys are used, the field not processed routine and field validation 
tests are performed (as described for FIELD mode) only for the originating field (if it is re- 
selected but not yet completed). The macro control key sequence is terminated prematurely in 
the same way as described for FIELD mode. 
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CONTROL KEYS 

Table 8-1 describes all labeled control keys. Unlabeled keys are user-defined. Table 8-2 indicates 
the values returned in the CONTROL, NUMPAD, NOLABEL and XCONTROL keywords 
which may be used in field processing routines. 



TABLE 8-1: Labeled Control Keys 



KEY 


KENTER 


KVERIFY 


CODE 


Pressed simultaneously with 
another key to modify its 
meaning. Produces a 'Third 
Shift' capability when used 
with data keys. 


Same as KENTER 


DUP 
CODE/DUP 


User-defined 


User-defined 


DSOFF 
CODE/DS OFF 


User-defined 


User-defined 


ENTER 


Used to acknowledge com- 
pletion of the active KET and 
signal a release. Also serves as 
a macro control key which per- 
forms the analogous function 
of repeated depression of the 
Field Forward key until the 
cursor is extinguished (after 
the last field) and a release is 
signaled. 


Same as KENTER 


CODE/ENTER 


User-defined 


User-defined 


EXIT 

(LEFT ZERO 
OR RIGHT 
ADJUST 


Exit key which causes data to 
be adjusted to the right 
boundary with shift specified 
(zero or space) fill characters 
to the left. The '-' (minus) key is 
used in lieu of 'EXIT' for nega- 
tive numbers. 


Same as KENTER; while veri- 
fying, the cursor stays in the first 
position of the field until the first 
non-fill data key is pressed. The 
fill characters are compared; 
then the first data character 
keyed is compared with the first 
non-fill character. If neither 
agree, an error occurs. When fill 
characters are in error, the 
cursor is at the start of the field. 



8-11 



TABLE 8-1: Labeled Control Keys (Cont'd.) 



KEY 


KENTER 


KVERIFY 


FIELD BACKSPACE 


Screen Mode — When the 
cursor is between two fields, 
the Field Backspace key pro- 
vides cursor movement to the 
first position of the nearest 
field to the left (or above) the 
current cursor position. When 
the cursor is within a field, the 
operation is identical to field 
mode. Field Backspace is ig- 
nored if cursor is in the first 
display position of the first field 
of the KET. 




CODE/FIELD 
BACKSPACE 


User-defined 


User-defined 


CHARACTER 
CORRECT 


Provides a destructive (space 
fill) cursor movement one 
position to the left. Character 
is ignored when the cursor is in 
the first position of a field. 

Screen Mode — Allows cursor 
positioning, a character at a 
time. 


Same as KENTER: Initiates a 
verified character correction 
sequence. 

Ignored 


CURSOR 
POSITION 


Field Mode — Same as Screen 
Mode except ignored if re- 
sulting cursor position lies out- 
side of the current field. 




EXIT 

(LEFT ZERO 
OR RIGHT 
ADJUST) 




When data does not match, the 
cursor is at the first non-fill 
character. 

After verifying the last character, 
either 'EXIT' or '-' is pressed. 
'EXIT' and the '-' key also verify 
the sign in the case of a numeric 
field. If a verification error occurs 
while verifying the sign, a 'SIGN' 
error-sequence is initiated. 


HOME 


Serves as a macro control key. 
It performs the analogous 
function of repeated de- 
pression of the Field Back- 
space key until the cursor is in 
the first field (of the KET) that 
is not a protected field. 


Same as KENTER, except only 
fields marked Verify are con- 
sidered. The verified field correc- 
tion sequence is associated only 
with the final field. 
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TABLE 8-1: Labeled Control Keys (Cont'd.) 



KEY 



CODE/HOME 



MC 

(MULTICODE) 



KENTER 



User-defined 



PROG ADV 
CODE/PROG ADV 



RESET 



CODE/RESET 



SCAN 
CODE/SCAN 



SEL MODE 
CODE/SEL MODE 



The MC key provides a 
method of keying any of 256 
EBCDIC codes. EBCDIC 
codes are entered by pressing 
'MC and then keying two 
hexadecimal digits. Valid 
hexadecimal digits are: 0, 1, 2, 
3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, 
F. Non-displayable graphics 
will appear as a multiple slash 
character on the display. 



User-defined 



Used to acknowledge an error 
condition. 



User-defined 



User-defined 



User-defined 



SKIP 



Field Exit key which causes 
data to remain aligned with the 
left boundary and remaining 
unkeyed positions to be space 
filled. When Skip boundary 
checking is mandatory, failing 
to exit with the 'SKIP' key re- 
sults in a 'BOUNDARY' error- 
sequence. 



FIELD FORWARD 



Field Mode — Moves the 
cursor, left-to-right, to the first 
position of the next data field 
(in the KET) whose source is 
key. If pressed in the last field, 
the cursor is extinguished and 
subsequent depressions are 
ignored. 
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KVERIFY 



User-defined 



Same as KENTER: the char- 
acter is verified after its last 
keystroke. 



User-defined 



Used to acknowledge an error 
condition. 



User-defined 



User-defined 



User-defined 



Same as KENTER; pressing 
'SKIP' during verification causes 
the remainder of the field to be 
checked for spaces. If a non- 
space character is encountered, 
the cursor stops in that position 
and a 'MISCOMPARE' error- 
sequence is initiated. After pres- 
sing 'RESET', the non-space 
character can be replaced with a 
space by pressing 'SKIP'. 
KVERIFY, then, continues to 
check the remainder of the field 
for spaces. 



Field Escape; the verification 
Compare Test is considered 
successful for the current field. 



TABLE 8-1: Labeled Control Keys (Cont'd.) 



KEY 


KENTER 


KVERIFY 


FIELD FORWARD 
(cont'd.) 


Screen Mode — When the 
cursor is within a field, the 
operation is identical to field 
mode. When the cursor is be- 
tween two fields, the Field 
Forward key moves the cursor 
to the first position of the next 
key field to the right (or below) 
the current position. If pressed 
in the last field, cursor is ex- 
tinguished and subsequent 
depressions are ignored. 




CODE/FIELD 
FORWARD 


User-defined 


User-defined 


FIELD BACKSPACE 


Field Mode — When the 
cursor is located in the first 
position of a field, this key pro- 
vides cursor movement to the 
first position of the first non- 
protected field previously 
specified. If the cursor is origi- 
nally located in other than the 
first position of the field, this 
key provides cursor move- 
ment to the first position of the 
current field. Field Backspace 
is ignored if the cursor is in the 
first position of the first non- 
protected field. 


Same as KENTER: Initiates a 
verified field correction 
sequence. 
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TABLE 8-2: Values Returned In CONTROL, NUMPAD, NOLABEL And XCONTROL 









HEXADECIMAL VALUE 




KEY 


KEYWORD 


WITHIN FIELD 


OUTSIDE FIELD 




SEL MODE 


CONTROL 


00 


80 




PROG ADV 


CONTROL 


01 


81 




SCAN 


CONTROL 


02 


82 




DUP 


CONTROL 


03 


83 




DSOFF 


CONTROL 


04 


84 




CODE/SEL MODE 


CONTROL 


05 


85 




CODE/PROG ADV 


CONTROL 


06 


86 




CODE/SCAN 


CONTROL 


07 


87 




CODE/DUP 


CONTROL 


08 


88 




CODE/DS OFF 


CONTROL 


09 


89 




CODE/RESET 


CONTROL 


0A 


8A 




CODE/ENTER 


CONTROL 


0B 


8B 




CODE/ 


CONTROL 


OC 


8C 




CODE/HOME 


CONTROL 


0D 


8D 




CODE/ 


CONTROL 


0E 


8E 




NONE 


CONTROL 


FF 


FF 


( 





NUMPAD 


10 


90 




1 


NUMPAD 


11 


91 




2 


NUMPAD 


12 


92 




3 


NUMPAD 


13 


93 




4 


NUMPAD 


14 


94 




5 


NUMPAD 


15 


95 




6 


NUMPAD 


16 


96 




7 


NUMPAD 


17 


97 




8 


NUMPAD 


18 


98 




9 


NUMPAD 


19 


99 


1 


NONE 


NUMPAD 


FF 


FF 


• 


INSTALLATION 










DEFINED 


NO LABEL 


20-2E 


A0-AE 




NONE 


NO LABEL 


FF 


FF 




-H 


XCONTROL 


30 


B0 




l«- 


XCONTROL 


31 


Bl 




HOME 


XCONTROL 


32 


B2 




ENTER 


XCONTROL 


33 


B3 




♦ 


XCONTROL 


34 


B4 




4 


XCONTROL 


35 


B5 




«- 


XCONTROL 


36 


B6 




-* 

^ 


XCONTROL 


37 


B7 




«£. 


XCONTROL 


38 


B8 




(INIT=ESCAPE) 


XCONTROL 


39 


B9 




NONE 1 


XCONTROL 


3F 


FF 
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KVERIFY 

Purpose: 



Format: 



Description: 



To activate a KET for key verify 

KVERIFY (lOD-name, KET-name, ESC:sn-l, ERR:sn-2) 

The KET specified by KET-name is activated and the key-verification 
process is executed in accordance with the specifications contained in 
KET-name. The IOD-name must designate the STATION device. 

When the KVERIFY statement is executed, display and keying oper- 
ations are primarily controlled by a key-verification process which is 
defined by the active KET. The process is identical to KENTER with 
the following exceptions: 

1. Only fields for which VERIFY is specified in the KET are acted 
upon by the key-verification process unless a directed RESUME 
or RESUMERR specifically indicates that a field is to be verified. 

2. FIELD mode is always employed even if the MODE=SCREEN 
clause is present in the KET. 

3. The contents of all data fields are initially displayed. After the first 
data key is depressed, those verify fields defined later in the KET 
are blanked on the display pending their verification. 

4. Keying into a field does not alter the field contents (except as 
described below), instead the keyed data is used as a source for 
comparison with the field content. 

During key verification, each character is compared with the corres- 
ponding character in the data field. 

If the characters do not compare, a miscompare error is posted as 
follows: 

1. The MISCOMP error message is displayed on line 2; 

2. The cursor remains at the position in question; 

3. All verify fields are displayed. 

The RESET key is used to acknowledge the error condition and re- 
store the display to the pre-error state. The first character following 
RESET is accepted if the character keyed agrees with either the 
character in the data field or the character that caused the error. If the 
first character following RESET is not accepted, a miscompare error 
again occurs and the cycle is repeated. 

A verified-field-correction sequence can be used to correct an entire 
field with a minimum number of keystrokes. The sequence is initiated 
by pressing Field Backspace ( N — ). The cursor moves to the first 
position of the field and the correct data is keyed. Data field content is 
displayed only to the left of the cursor. When the corrected data has 
been keyed, the field is blanked on the display and the cursor is moved 
back to the first position from which point key verification takes place. 
Similarly, a verified-character-correction sequence is initiated by 
pressing Character Backspace ( * — ) invoking an analogous cor- 
rection sequence (i.e., for a field of one character). 

8-16 



RESUME 

Purpose: 



Format: 



To return control to key entry or key verify. 

1. resume: 

2. RESUME: (KET-f ield-name) 



Description: 



To allow a field pre-processing or post-processing routine to return 
control to an interrupted key entry or key verification process. 

When a branch to the statement labeled sn-pre or sn-post occurs, key 
entry or key verification processing is suspended, pending further dir- 
ection from a field-processing routine that has the ability to specify the 
next field to be processed. Keystrokes are buffered during the sus- 
pension. When the field-processing routine specifies the next field to 
be processed, the buffered keystrokes are retrieved and processed in 
accordance with the specification of the selected field. 

The operation is as follows: 

1. If the FLDNUM keyword is not changed by the field processing 
routine, then the next cursor position is determined by: the 
MODE clause of the KET; the field-processing-routine type; and, 
the condition which caused the routine to be executed. Details 
concerning cursor positioning are tabled later in this section. 

If the FLDNUM keyword is changed, the cursor moves to the first 
position of the corresponding field, regardless of MODE, field- 
processing-routine type and/or cause of execution. This is called 
a directed RESUME. 

2. The cursor is moved to the first position of the designated field, 
regardless of MODE, field-processing-routine type and/or cause 
of execution. This is also a directed RESUME. 

The RESUME statement may be used to return control to key entry 
or key verification from a control-key-processing routine (sn-1), an 
error routine (sn-2) and/or the next in-line statement to the KENTER 
or KVERIFY. 

A processing routine may reference the contents of the current field 
using an alternate reference notation: 

lOD-name.CURFLD 
When this form of reference is coded, the processing routine may be 
used for more than one field within the application. The field which is 
reference through the CURFLD keyword corresponds to the KET 
field which contains the cursor and, therefore, repeatedly changes. 
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A processing routine may change the field to which CURFLD corres- 
ponds by changing the value of FLDNUM. For example, the following 
sequence would select the first field of the active KET, asterisk-fill the 
field and finally continue processing with that field: 

IOD-name. FLDNUM = :00: 
I OD-name. CURFLD = :*: 
RESUME 

If a processing routine assigns a value to FLDNUM and the value is 
less than FLDCOUNT, the designated field is activated and pro- 
cessing continues in sequence. If the value is equal to FLDCOUNT, 
the entry or verify process is continued at KET end; that is: 

• the next processing statement within the exit routine is not exe- 
cuted; and, 

• the statement following the KENTER/KVERIFY is executed next if 
RELEASE=AUTOMATIC is coded; or, 

• the ENTER key is solicited if RELEASE=MANUAL is coded. 

If the value is greater than FLDCOUNT, the next processing state- 
ment within the exit routine is not executed and an error condition 
results. 

Table 8-3 indicates the cursor position following execution of the 
RESUME statement (as described for Format A.) 
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Table 8-3: Cursor Positions Following Execution of Non-Directed RESUME 





PROCESSING 


CAUSE 


NEXT 




ROUTINE 


OF 


CURSOR 


MODE 


TYPE 


EXECUTION 


POSITION 


FIELD 


SN-POST 


Field Release key 


First position, next field 




SN-PRE 


Field Backspace key 


First position, new field 




SN-1 


User-defined key 


Current position, current field 




SN-2 


Error 


Program terminated 




IN-LINE 


Resume after RENTER or 


First position, first field of 






KVERIFY statement 


last active KET 


SCREEN 


SN-POST 


Field Release key 


First position, next field 




SN-POST 


Field Forward key 


First position, next field 




SN-POST 


Field Backspace key 


First position, new field 




SN-POST 


Cursor keys 


New cursor position 




SN-PRE 


Data key (to initiate field 
re-selection) 


Current position, current field 




SN-PRE 


Field Release key (to 
initiate field re-selection) 


Current position, current field 




SN-PRE 


User-defined key 


Transfer control to SN-1 




SN-1 


User-defined key (when 
cursor is within data field) 


Current position, current field 




SN-1 


User-defined key (when cur- 
sor is outside of a data field) 


Current position, key ignored 




SN-2 


Error 


Program terminated 




IN-LINE 


Resume after RENTER or 


First position, first field of 






KVERIFY statement 


last active KET 
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RESUMERR 

Purpose: 



Format: 



Description: 



To return to key-entry or key-verify. 

1. RESUMERR 

2. RESUMERR (B) 

3. RESUMERR (B, KET-f ield-name) 

4. RESUMERR (, KET-f iel d-name) 

Identical to RESUME except that an error is also posted. 
The operation is as follows: 

1. If the FLDNUM keyword is not changed by the exit routine, then 
an error-sequence is initiated at the field which contains the 
cursor. The next cursor position is determined by: the MODE 
clause of the KET; the field-processing-routine type; and, the 
condition which caused the routine to be executed. Details con- 
cerning cursor positioning are tabled later in this section. 

If the FLDNUM keyword is changed by the field-processing- 
routine, the error sequence is initiated in the first position of the 
field indicated by FLDNUM. This is called a directed 
RESUMERR. 

2. Same as described for Format 1, except that field B is used as an 
error message on the second line of the display during the error 
sequence. 

3. Same as described for Format 2, except that the cursor position 
relates to the explicitly designated field. This is also a directed 
RESUMERR. 

4. Same as described for Format 1, except that the cursor position 

RESUMERR. 

The error sequence arising from the use of RESUMERR is as des- 
cribed for internally-detected keying errors, except that the message 
text is derived from field B. 

Table 8-4 indicates the cursor position following execution of the 
RESUMERR statement (as described for Format 1). 
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Table 8-4: Cursor Positions Following Execution Of Non-Directed RESUMERR 







PROCESSING 


CAUSE 


NEXT 






ROUTINE 


OF 


CURSOR 




MODE 


TYPE 


EXECUTION 


POSITION 




FIELD 


SN-POST 


Field Release key 


First position, current field 






SN-PRE 


Field Backspace key 


First position, current field 






SN-1 


User-Defined key 


Current position, current field 






SN-2 


Error 


Program terminated 






IN-LINE 


Resume after RENTER or 
KVERIFY statement 


First position, first field of 
last active KET 




SCREEN 


SN-POST 


Field Release key 
SN-POST 


First position, current field 
First position, current field 






SN-POST 


Field Backspace key 


First position, current field 






SN-POST 


Cursor key 


First position, current field 






SN-PRE 


Data key (to initiate 
Field re-selection) 


Current position, key ignored 






SN-PRE 


Field release key (to 
initiate field re-selection) 


Current position, key ignored 






SN-PRE 


User-defined key 


Current position, key ignored 






SN-1 


User-defined key (when 
cursor is within a data field) 


Current position, current field 






SN-1 


User-defined key (when cur- 
sor is outside of a data field) 


Current position, key ignored 






SN-2 


Error 


Program terminated 






IN-LINE 


Resume after KENTER or 
KVERIFY statement 


First position, first field of 
last active KET 
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ERROR 

Purpose: 



Format: 



Description: 



To display an exception message for operator acknowledgement. 

ERROR (B) 

The operation proceeds in several steps as detailed: 

1. The Error Line (line of the CRT is saved). 

2. The field B data is displayed on line 2, columns 2-39, with a HIGH- 
BLINK attribute in column 1. 

3. Column 40 or columns 40-80, depending upon the current 
CRTSIZE, are set to display blanks and to preserve the appear- 
ance of line 3. 

4. The Error Tone is sounded once. 

5. The Error Flasher is initiated. 

6. All pre-keyed data and control keys are discarded. 

7. Execution is suspended until RESET is depressed. (All other keys 
are discarded.) 

8. After RESET, the Error Flasher is extinguished. 

9. The Error Line is restored to its previous condition. 

10. The next in-line statement is executed. 
For example, the statement: 

ERROR ('FILE NOT FOUND 1 ) 

would produce the Error Line shown: 

(line 2) =© FILE NOT FOUND 

FIELD 
B 

HIGHBLINK ATTRIBUTE 



NOTES: 1. If the length of field B is less than 38, trailing-space 
characters are used to fill the Error Line. 

2. If the length of field B is greater than 38, only the first 38 
positions are transcribed to the Error Line. 
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NOTIFY 

Purpose: 



Format: 



Description: 



To display an exception message for operator acknowledgement and 
to obtain a one-character response. 

NOTIFY (B,C) 

The operation proceeds in several steps as detailed: 
As per ERROR 



1. thru 8. 
8a. 

8b. 
9-10. 



Execution is suspended until the next key is de- 
pressed. 

The key is interpreted according to a preferred 
shift of LETTER and the resulting value is placed 
in the leftmost position of field C. 

As per ERROR. 



NOTES: See NOTES for the ERROR statement. 
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READSCREEN 

Purpose: 



Format: 



Description: 



To transfer a CRT display line to a buffer. 

READSCREEN (lOD-name, B, ERR:sn-l, E0F:sn-2) 

The display line designated by the LINE keyword parameter is trans- 
lated to EBCDIC and is moved to buffer. 

If the current display uses the 480 character format, LINE can contain 
a value in the range of 1 to 12; if the 1920 format is used, the value of 
LINE can fall within the range of 1 to 24. 

LINE is default-initialized to one (X'01') and is automatically incre- 
mented by 1 after the READSCREEN statement is executed. If the 
resulting value of LINE is greater than the number of lines of the dis- 
play (i.e., either 13 or 125 for 480 or 1920 format), LINE is set to X'01' 
and control is transferred to the statement sn-2. If no EOF exit is 
coded, the end-of-file condition is regarded as an error condition. 

If an error condition results (invalid value of LINE), the ERR exit is 
taken. If no error exit is coded, execution of the program is cancelled. 

Display attribute bytes and other non-displayable graphics are trans- 
lated to the EBCDIC space character. 

The READSCREEN statement can be used in conjunction with the 
PRINT statement to produce a hardcopy representation of the dis- 
play. If it is desired, the display image can be edited by the application 
prior to being printed. READSCREEN also provides read access to 
the prompting messages. 
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READKEY 

Purpose: To allow an operator to interrupt a program during a non-interaction 

phase of execution. This command will cause the system to determine 
whether a key has been pressed to interrupt execution and, if so, to 
return the key value. 

Format: READKEY (lOD-name, B, ERRrsn) 

Description: If no data or control keys are available at the time of the request, exe- 

cution continues with the statement labeled sn. If a data or control key 
is available, the key value is returned in the leftmost position of field B. 

The preferred shift used for key interpretation is in accordance with 
IOD-name.SHIFT as established prior to the READKEY request. 

NOTES: 1. If the application requires key input before processing 
can continue, the following format should be used: 

READKEY (lOD-name, B) 

In this instance, the absence of an available key causes 
execution of the application to be suspended until a 
key is struck. 

2. READKEY allows the application to sense operator 
input without suspending mainline execution when no 
data is available. 
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Example: 



* SAMPLE PROGRAM PORTION FOR READKEY FUNCTION 



IOD: CRT=STATION; 
RCD: WORKAREA 

KEYSAVE(l) 

C0DERESET(2)=X'8A0A'; 

KET: SCREEN 



OPERATOR STATION DEFINITION 
WORK RECORD DEFINITION 
SAVE AREA FOR READKEY 
CODE RESET KEYBOARD VALUES 
CRT DISPLAY DEFINITION 



START 



BEGIN EXECUTION SECTION 



10, READKEY(CRT,KEYSAVE,ERR:20) READ KEYBOARD 

I F(CODERESET, CONTAINS, KEYSAVE) STOP TEST FOR CODE RESET PRESENT 
20, READ FROM DEVICE1 

PROCESS INFORMATION 



WRITE TO DEVICE2 

G0:10 
END 



REPEAT PROCESSING LOOP UNTIL 
OPERATOR INTERVENTION 
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APPENDIX B RESERVED WORDS IN MOBOL 



The following words are reserved for system use and must NOT be defined as programmer- 
assigned data names: 



ADD 


ERROR 


OPEN 


SEARCH 


AND 


ERR 


PERFORM 


SETEOD 


BINARY 


EQU 


PICTURE 


SETFORMS 


BACKSPACE 


EXIT 


PRINT 


SETTIME 


BACKSPACEA 


FREESPACE 


PRINTA 


SKIPFILE 


CASE 


FREESACEA 


READ 


SKIPFILEA 


CHECKEOD 


GETTIME 


READA 


SKIPRECORD 


CHECKFORMS 


GO 


READKEY 


SKIPRECORDA 


CK10 


HEX 


READLOCK 


SENDEOF 


CK11 


IF 


READLOCKA 


SENDEOFA 


CKTB1 


IFNOT 


READNEXT 


START 


CKTB2 


INSERT 


READNEXTA 


STOP 


CLOSE 


IOD 


RELEASE 


STRING 


COMPRESS 


JUSTIFY 


READSCREEN 


SUB 


CURRENCY 


KENTER 


RESUME 


TERMINATE 


DECIMAL 


KET 


RESUMERR 


TERMINATEA 


DECOMPRESS 


KEYIN 


REWIND 


TITLE 


DELETE 


KVERIFY 


REWINDA 


TRANSFORM 


DISPLAY 


MPY 


REWINDLOCK 


TRANSLATE 


DIV 


MARK 


REWINDLOCKA 


UNHEX 


DIVR 


MARKA 


RCD 


WAIT 


EJECT 


NOTIFY 


RESUME 


WRITE 


END 


NUMBER 


RESUMERR 


WRITEA 


ENTRY 


OR 


SAME 


XOR 
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APPENDIX C: MOBOLIST 

MOBOLIST is a utility program which can be used to generate a source listing of a MOBOL 
program and/or the associated NOTES file. The NOTES file contains any syntax errors 
detected by the MOBOL compiler during program compilation. 

This utility program is accessed by inserting a library diskette containing MOBOLIST into a 
diskette drive of the Series 21 System. 

A diskette containing MOBOL source code, the OBJECT FILE and the NOTES FILE should be 
inserted into a system diskette drive. 

When the program selection display appears on the screen, select MOBOLIST, then press the 
ENTER key on the console keyboard. 

The message LOADING MOBOLIST appears briefly, followed by the MOBOLIST function 
selection display. 



MOBOL LIST 

1 - SOURCE LIST 

S - NOTES LIST 

3 - ANNOTATED SOURCE LIST 

H - SOURCE & NOTES LIST 

5 - ANNOTATED DISPLAY 

L - SIGN OFF 

SELECT FUNCTION I 
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Select the desired function: 

1. If a listing of only the source code is desired, select 1. The following display will appear: 



MOBOL LIST 



DATA SET VOLUME UNIT 
NAME ID NO 



SOURCE = SOURCE 



PRESS ENTER „ 



a. Key-in the dataset name containing the source program, the Volume ID of the diskette 
and the unit number of the diskette drive in which the diskette is inserted. Press 
ENTER. 

b. If only a portion of a source program is to be listed, press the PROG ADV key. At the 
top of the screen; 

START = LAST = 

will appear. Enter the line numbers of the source program at which printing should 
begin and end. 

c. The printer will print the source listing. When the function is complete, the MOBOLIST 
Function Selection Display returns. Select 6 if no further listings are required. 
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2. If a listing of only the NOTES file is desired, select 2. The following display will appear: 



MOBOL LIST 



DATA SET VOLUME UNIT 
NAME ID NO 



NOTES 
OBJECT 



NOTES 
OBJECT 



PRESS ENTER 



a. Key-in the dataset-name containing the OBJECT program, the Volume ID of the disk- 
ette and the unit number of the diskette drive into which the diskette is inserted. Press 
ENTER. 

b. When the function is complete, the MOBOLIST Function Selection Display returns. 
Select 6 if no further listings are required. 

3. For an annotated source list, select 3. 
For a SOURCE and NOTES list, select 4. 
For an annotated display, select 5. 

a. After any of the above selections are made, the following display will appear on the 
screen: 
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b. Key-in the dataset-names, Volume ID's and the unit numbers for SOURCE, OBJECT 
and NOTES files. Press ENTER. 

c. When the function is complete, the MOBOLIST Function Display returns. Select 6 if 
no further listings are required. 

4. A source program dataset contained on more than one diskette may be printed. 
MOBOLIST will print the contents of a diskette, then wait for the diskette containing the 
next subsequent portion of the source program to be inserted into the diskette drive. This 
cycle continues until the entire source program is printed. For all function selections but the 
annotated display, as many diskettes as required may be used. For the annotated display, 
the source program is limited to one primary and one extended dataset. 

5. Press the SEL MODE key, at any time during the MOBOLIST operation, to return to the 
Function Selection Display. 

Following are examples of the MOBOL source listing, the NOTES file, the annotated source 
listing and the annotated display. 



0C13. 


I0D: 


KSTATION = STATIOII; 




KEY STATION 


CO 11. 


I0D: 


INPUT = DISKETTE 




DISKETTE FILE 


CC15. 




DATASET = 'MASTEROl'' 




DATASET NAME 


0016. 




UNIT = 2; 




DRIVE ? 


00 1 7 . 










coie! 


I0D: 


OUTPUT = PRINTER 




PRINTER OUTPUT 


0019. 
0020 . 




UNIT = 1; 




DEFAULT PRINTER UNIT 


0021 . 


BCD: 


WORKAREA 




BUFFER 


00??. 




TYPE (1) 




FIRST CHARACTER 


°02^ . 
0024.' 




DATA (127); 




ALL THE REST 


0025. 


KET : 


DISPLAY 




SCREEN DISPLAY 


C0?6. 




CRTsizE = uno 




BIG SCREEN 


0027 . 




BLANK r CRT SIZE 




BLANKS ENTIRE SCREEN 


00.28. 




RELEASE = AUTOMATIC 




'ENTER' NOT REQUIRED 


0029. 




(3,2) 'PRINT/SELECT UPDATE 


RECORDS' 


PROMPT MESSAGE 


0030. 




(»,?) '1 - LIST ALL' 




PROMPT MESSAGE 


0^3 '. 




(5,?) '?- LIST UPDATES' 




PROMPT MESSAGE 


0032. 




(6,?) ' !, - SIGN OFF' 




PROMPT MESSAGE 


0033. 




(7,?) 'SELECTION:' 




PROMPT MESSAGE 


0031. 




(7,11) SELECTION (1,N); 




FIELD ENTRY 


0035. 










0036. 


START 






BEGIN CODE SECTION 


0037. 


10. 


KENTER (KSTATION, DISPLAY) 




DISPLAY 


0038. 




IF (SELECTION, CONTAINS, : ' 


:) STOP 


END PRqGRAM 


00 J 9 . 
0010 . 




IFNOT ('1?', CONTAINS, SELECTION) RESUHERR 


DISALLOW BAD CHARS 


0C-J 1 . 




OPEN (INPUT, WORKAREA, ERR: 


200) 


OPEN BUFFER FILE 


0012. 
001 i . 




OPEN (OUTPUT, WORKAREA, ERR: 


200) 


OPEN PRINT FILE 


00^1 . 


110,. 


READ (INPUT, WORKAREA, EOF: 


200, ERR:200) 


READ INPUT 


0015. 




GO (SELECTION) 130, 130, 12 





BRANCH Oil SELECTION 


00^6. 










cc-tz. 


120, 


IFNOT (TYPE, CONTAINS, :U:) 


GO:110 


NOT UPDATE: RECYCLE 


OO^fi. 










0019 . 


130, 


PRINT (OUTPUT, WORKAREA, EOM:110, ERR:200) 


PRINT, IGNORE EOM 


0050. 




GO: 1 10 




CYCLE 


0051. 










005?. 


200 , 


CLOSE (INPUT. WORKAREA, ERR 


:201) 


CLOSE, IGNORE ERRS 


0053. 


201, 


CLOSE (OUTPUT. WORKAREA, ERR: 10) 


CLOSE PRINTER 


005" . 




GO: 10 




CYCLE 


0055 . 










005(). 
<END> 


END 






END OF SOURCE, FILE 



Figure C-l: MOBOL Source Listing 
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NO ERRORS DETECTED 


OBJECT DATA SET = 


OBJECT 


CODE AREA SIZE = 


512 BYTES. 


DATA AREA SIZE = 


512 BYTES 


1 STATION SIZE = 


102H BYTES 


2 STATION SIZE = 


1536 BYTES 


3 STATION SIZE = 


20U8 BYTES 


'■> STATION SIZE = 


2560 BYTES 


»*»«» END NOTES 


LIST *»*«« 



Figure C-2: NOTES File 



CC17. 








CC13. 


IOP: 


OUTPUT = PRHTER 


PRINTER OUTPUT 


*C013 


00 


MISSPELLED DEVICE NAME 




0036. 




START 


BEGIN CODE SECTION 


0037. 


10 


RENTER (KSTATIOH, DISPLAY) 


DISPLAY 


*00 37 


16 


SYNTAX ERROR 




ooto. 








noji , 




OPEN (IHPET, WORKAREA. ERR: 200) 


OPEN BUFFER FILE 


«onq 1 


c c 


REQUIRED IOD REFERENCE 




00^6. 








C047. 


120, 


IFNOt (TYPE, CONTAINS, :U ) GO: 110 


NOT UPDATE: RECYCLE 


*QQH7 


33 


SYNTAX ERROR 




00^9 . 


130, 


PRINT (OUTPUT, WORKAREA. EOH:110, ERR:200) 


PRINT, IGNORE EOli 


0050. 




GO: 110 


CYCLE 


*'O05O 


00 


INAPPROPRIATE DEVICE OR OPERATION 




0C53. 


201, 


CLOSE (OUTPUT. WORKAREA. ERR: 10) 


CLOSE PRINTER 


0054. 




CU:10 


CYCLE 


*0054 


10 


MISSPELLED KEYWORD 




*0054 


00 


UNDEFINED LABEL OR INCORRECT REFERENCE 




THE COMPILER DETECTED 7 ERROR(S) 




OBJECT 


DATA SET = OBJECT 




CODE AREA SIZE 


512 BYTES 




DATA AREA SIZE 


512 BYTES 




1 STATION SIZE 


= 1021 BYTES 




2 STATION SIZE 


= 1536 BYTES 




3 STATION SIZE 


= 20*48 BYTES 




M STATION SIZE 


= 2560 BYTES 




**« END ANNOTATED SOURCE LIST «*« 





Figure C-3: Annotated Source Listing 
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NOTE: 

In the annotated display, all statements are displayed individually (i.e., one at a 
time). The SCAN key is used to advance display of statements. The CODE and 
SCAN keys are used to reverse order of statement display. 

Also, error messages (contained in the NOTES file) are individually displayed. 
Press ENTER to advance display of error messages. 



MOBOL LIST 

RECORD COLUMN NOTE 



MISSPELLED DEVICE NAME 
SOURCE STATEMENT 

IOD: OUTPUT = PRINTER 

PRINTER OUTPUT 

PRESS ENTER TO ADVANCE 



Figure C-4: Annotated Display 
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APPENDIX D: MOBOL CROSS REFERENCE PROGRAM 



The MOBOL Cross Reference Program (MOBOLXRF) is a Series 21 application program, 
written in MOBOL, designed to generate cross reference listings for MOBOL programs 
residing on diskette. 

MOBOLXRF should only be executed for those programs whose SOURCE contains no syntax 
errors. 

PROGRAM LOADING AND INITIATION 

MOBOLXRF is loaded by selection from the VTOC menu display using procedures required to 
load any MOBOL program. The EXEC (Control Program) must be configured for at least a 
printer, 1 diskette, and an operation station. After the program is loaded, the 'SELECT 
OPTION' display is presented, whereupon the user enters the dataset-name of the MOBOL 
program to be used. The unit number and volume name are not requested and all diskettes are 
searched. 

DESCRIPTION OF THE 'SELECT OPTION' DISPLAY 

The 'SELECT OPTION' display is represented in the following: 



riOBOLXRF 



OPTIONS: MODES: 

1-XREF & SOURCE LIST B=B0TH 

S-XREF LIST N=NAHES 

3-SIGN OFF L=LABELS 

SELECT OPTION : k 
DATA SET NAHE : dddddddddd 
NODE : m 



OPERATOR ENTERED FIELDS: 

dddddddd DATA SET NAME (SOURCE is default) 

k OPTION, 1 through 3 

m MODE KEY (B is a default value) 

The operator selects one of the above options according to the type of output desired. 

Large programs may require two steps to complete the cross reference process. First, mode 
"N" produces the complete data name references followed by mode "L" to produce the label 
references. 
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XREF & SOURCE LISTING 

In this mode ('1' entered at k field, in line 9) all source lines are listed starting with record zero and 
terminating when the END statement is encountered. The MOBOLXRF program is designed 
to automatically add a binary 1 to the right-hand position of the dataset-name currently 
processed when EOD is encountered and the END statement has not been encountered. This 
automatic dataset-name increment is compatible with the manner in which the MOBOL 
compiler continues from one dataset to the next if an END statement has not been 
encountered. The user specifies the starting dataset-name on line 10 in the 'dddddddd' field. 

The current relative record position of the record read is displayed on line 12. 

The MOBOLXRF program reads the DATA section of a MOBOL program from record 
number zero to the occurrence of the START statement, and builds DATA NAMES and 
LABELS (if B is selected) in memory in array 'NAMES'. 

Certain types of cross references are also noted such as 'REMAPS' AAA, where AAA is cross 
referenced as indicated by the statement number in which the REMAPS occurred. Also, 
pre-processing and post-processing labels are cross referenced if they should occur in KET field 
processing statements. 

After the START statement is encountered, the program switches to the 'BUILDING CROSS 
REFERENCES' mode in line 3. 

While printing the source statements, TITLE statements are placed in the MOBOLXRF page 
header and a top-of-form is executed and the header line printed. Similarly, 'EJECT' statements 
result in top-of-form and the header contents is printed. XREF listing will use first TITLE 
statement as a page header. 

After source listing is finished, the total number of compilable statements are printed. 

The user specifies the type of cross reference desired by entering an 'L', an 'N', or a 'B' in the 'm' 
field of line 11. Entering 'L' causes the program to search just for statement labels and cross 
references to the labels. Entering a 'N' causes the program to search just for data-names and 
references. Entering a 'B' causes the program to search for both data names and labels. The 
cross references for data-names are printed first followed by labels, providing either or both 
are specified in 'm' on line 11. 

The cross reference listing shows the record number of the occurrence of a data-name or label in 
the far left margin. The next item is the actual data-name or label. 

XREF LISTING (ONLY) 

This mode is identical to that described above except that the source lines are not printed at the 
time the MOBOLXRF program is extracting data-names, labels and cross references from the 
source. After completing the reading of all records in the starting dataset, and continuation 
datasets, the program prints the cross reference data requested under MODE, field 'm', line 11. 
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ERROR MESSAGE SUMMARY 

Errors which may occur in the operation of the MOBOLXRF program are tabulated below and 
may appear on line 2. 

Error D is play Format : 

FU NNNNNNNN XX-Message text 
P XX-Message text 



(XX 
U 

NNNNNNNN 



Hex Error Code 
Unit number 
File name ) 



Error Messages: 

I/O ERROR (RSAE) 
DATA ERROR (AE) 
UNEXPECTED CODE 
NOT FOUND/AVAIL (RE) 
MEDIA CHANGED (E) 
FAULT 

I/O ERROR (RSAC) 
DATA ERROR (SA) 
UNEXPECTED CODE 
NOT FOUND/AVAIL (RSC) 
FAULT 

Response Meaning: 

R : Retry 

S : Retry previous record (Printer) 

Operator should set forms to the top-of-form and then respond 'S' 

Skip to next record and Retry (Diskette) 
A : Accept 

E : Treat as EOF/EOM condition 
C : Continue printing previous line 

OPERATING MESSAGE SUMMARY 

Operating messages which may occur in the operation of the MOBOLXRF are tabulated below 
and may appear on line 3. 

SCANNING FOR DATA NAMES ('B' & 'N' Option) 
SCANNING KET'S FOR LABELS ('L' Option) 
BUILDING CROSS REFERENCES 
PRINTING CROSS REFERENCES 
DONE 

ENTER NEXT DATA SET OR SEL MODE (in case END statement has not 
occurred, and the next dataset-name can't be found.) 
CONTINUING WITH NEXT DATA SET 
WILL CONTINUE — PLEASE WAIT 
LOADING BINARY SEARCH ARRAYS 
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DESCRIPTION OF THE LISTING 

In the name listing, character '-' is marked at IOD.KEYWORDS (Case A: 1,3) and character ' * ' is 
marked at Names whose cross references are not referenced. (Case A:2) 

In the Label listing, character '* 'is marked at Labels which are declared but not referenced 
(Case B:4) and Labels are sorted like Case B showing. 

When overflow occurs, MOBOLXRF prints the cross reference listing to the point of 
overflow.A ' - 'character is printed on Labels that are referenced but not yet declared; a 
statement number is printed where the Label is cross referenced (Case C). MOBOLXRF then 
continues to process the remaining source. 



B 




316. 


*13 


263. 


100 


424. 


1014 


320. 


2 


222. 


25 


563. 


2020 


388. 


3 



252 




429 


417 


131 




523 


521 


888 


827 


290 





520 



1588. -10200 
1587. -10500 
1575. -30000 



1588 
1587 
1575 
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APPENDIX E: ERROR MESSAGES 



FOR DISK: 

I/O ERROR 

DATA ERROR 
DATA ERROR 

NOT FOUND/AVAIL 
NOT FOUND/ AVAIL 
NOT FOUND/AVAIL 
NOT FOUND/AVAIL 
NOT FOUND/AVAIL 
NOT FOUND/AVAIL 
NOT FOUND/ AVAIL 
NOT FOUND/ AVAIL 



01 



HARDWARE ERROR 



02 


SHORT XFER 


12 


EOF 


04 


VOLUME NOT FOUND 


14 


FILE NOT FOUND 


34 


NOT SYSGENED 


44 


DISK NOT READY 


54 


FILE IN USE 


64 


VOLUME IN USE 


74 


RECORD LOCKED 


84 


NO MORE FREESPACE IN VOLUME. THE LAST 




RECORD WRITTEN IS LOST 



MEDIA CHANGED 


06 


FAULT 


07 


FAULT 


17 


FAULT 


27 


FAULT 


37 


FAULT 


67 


FAULT 


77 


FAULT 


97 


FAULT 


A7 


FOR DISKETTE: 




I/O ERROR 


01 


DATA ERROR 


02 


DATA ERROR 


12 


DATA ERROR 


22 


DATA ERROR 


32 



DISK DOOR WAS OPENED 

FILE NOT OPEN 
FILE ALREADY OPEN 
INVALID POSITION POINTER 
C-LIST FAILURE 
INVALID COMMAND 
DEVICE NOT A DISK 
MULT LOCK REQUESTED 
DSCB FAILURE 



HARDWARE ERROR 

SHORT XFER 
EOF/EOM 

ACCESSIBILITY ERROR 
ERMAP NON-BLANK 



WRITE PROTECTED 03 

NOT FOUND/AVAIL 04 

NOT FOUND/ AVAIL 14 

NOT FOUND/AVAIL 24 

NOT FOUND/ AVAIL 34 

NOT FOUND/AVAIL 44 

NOT FOUND/AVAIL 54 

NOT FOUND/ AVAIL 64 

NOT FOUND/AVAI: 74 

MEDIA CHANGED 06 



TRIED TO WRITE A READ-ONLY FILE 

VOLUME NOT FOUND 
FILE NOT FOUND 
UNIT IN USE 
UNIT # NOT SYSGENED 
NO DISKETTE READY 
FILE IN USE 
VOLUME IN USE 
RECORD LOCKED 

DKT DRIVE DOOR WAS OPENED 
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Cont. DISKETTE 



FAULT 


07 FILE NOT OPEN 


FAULT 


17 FILE ALREADY OPEN 


FAULT 


27 INVALID POSITION POINTER 


FAULT 


37 C-LIST FAILURE 


FAULT 


67 INVALID COMMAND 


FAULT 


77 DEVICE NOT A DKT 


FAULT 


97 MULT LOCK REQUESTED 


FAULT 


A7 DSCB FAILURE 


FOR INDEXED ACCESS METHOD SEQUENTIAL: 


DATA ERROR 


02 BUFFER SIZE NOT 128 ON OPEN 


DATA ERROR 


12 EOF ON READ 



FAULT 



67 



INVALID COMMAND 



FOR INDEXED ACCESS METHOD RANDOM: 



DATA ERROR 


02 


BUFF SIZE NOT 128 ON OPEN 


DATA ERROR 


12 


EOF ON INSERT 


FAULT 


67 


INVALID COMMAND 


(INFORMATION CODE) 


18 


NO RECORD ON RD OR RD N 


(INFORMATION CODE) 


28 


DUPLICATE INSERT 


FOR TAPE: 






I/O ERROR 


01 


HARDWARE ERROR 


I/O ERROR 


11 


PARITY ERROR 


I/O ERROR 


31 


POS. ERROR DURING RECOVE 


I/O ERROR 


41 


OVERRUN 


I/O ERROR 


51 


TIMEOUT 


DATA ERROR 


02 


SHORT XFER 


DATA ERROR 


12 


EOF/EOM 


DATA ERROR 


22 


ILLEGAL 7-TRACK CHAR 



WRITE PROTECTED 



03 



WRITE PROTECTED 



NOT FOUND/ AVAIL 
NOT FOUND/ AVAIL 
NOT FOUND/AVAIL 

FAULT 
FAULT 
FAULT 



34 


NOT SYSGENED 


44 


NOT READY 


54 


TAPE IN USE 


07 


FCB FAILURE 


17 


FILE ALREADY OPEN 


37 


C-LIST FAILURE 



(INFORMATION CODE) 18 



TAPE BACKSPACED TO LOAD POINT 
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FOR PRINTER: 




I/O ERROR 


01 


I/O ERROR 


11 


DATA ERROR 


12 


DATA ERROR 


22 


NOT FOUND/ AVAIL 


34 


NOT FOUND/ AVAIL 


44 


NOT FOUND/AVAIL 


54 


FAULT 


07 


FAULT 


17 


FAULT 


37 



HARDWARE ERROR 
PARITY ERROR 

BOTTOM OF FORMS HAS BEEN DETECTED 
INVALID VFU CHAR 

PRINTER NOT SYSGENED 
PRINTER NOT READY 
PRINTER IN USE 

FILE NOT OPEN 
FILE ALREADY OPEN 
C-LIST FAILURE 
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APPENDIX F: GLOSSARY OF TERMS 

Definitions of terms used in this manual are presented, in this section, to provide convenient 
reference and facilitate understanding of MOBOL. These terms are listed alphabetically. 

Abnormal Condition — The occurrence of an Exception Condition or an Error Condition. 

Access Method — A technique for moving data between a computer and its peripheral 
devices, e.g., serial access, random access. 

Address — An identification for a location in which data is stored. 

Algorithm —A procedure for performing a function described in terms of program operations. 

Application — Programs written to produce specific reports and/or to update or create 
specific files. 

Attribute Byte — The byte that controls the display characteristics of the field immediately 
following. 

Automatic Release — Designates that the display data is to be released immediately for 
processing without intervention. 

Binary — A numbering system based on the powers of two. 

Bit — A binary digit. 

Buffer — An area in storage which temporarily holds data that will subsequently be processed. 

Byte — A sequence of adjacent binary digits operated upon as a unit. 

Cathode Ray Tube (CRT) — An electronic device that can be used to display graphic images. 

Comment — A statement used to include information that may be helpful in documenting a 
program for clarity. 

Comparator — The comparator is an operator in a conditional phase (e.g., A<=B;<=is the 
comparator). 

Compile — To transform a human readable program into a machine readable form. 

Compiler — A program that compiles. 

Data Compression — A technique that saves storage space by eliminating redundant data to 
shorten the length of records or blocks. 

Data Control Block (DCB) — A control block used by access routines in storing and 
retrieving data. 

Data Element — See Field 

Data Item — See Field 
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Data Management — A general term that collectively describes those functions of the system 
that provide creation of and access to stored data, enforce data storage conventions and 
regulate the use of peripheral devices. 

Dataset — A named area on a physical recording medium. 

Default — The choice made by the system when no explicit choice is specified by the user. 

EOD — End-of-Data. 

EOE — End-of-Extent. 

EOM — End-of-Medium. 

Error Condition — The occurrence of a termination condition which prevents the detection of 
a Normal Condition or an Exception Condition. 

Exception Condition — The occurrence of a secondary anticipated result of a function. 

Field — The smallest unit of data that has meaning in describing information; the smallest unit 
of named data. Synonymous with Data Item and Data Element. 

File — A group of related logical records as perceived by an application program; it may be in a 
different form from that in which it is stored on peripheral devices. 

Fill Character — To insert the representation of a specific character in a storage medium, 
usually for the purpose of deleting unwanted data. 

Format — The predefined arrangement for data. 

Hexadecimal — A numbering system based on the powers of sixteen. 

Index — A value indicating a specific record of several identically structured records. 

Index Dataset — A control dataset on DISK or DISKETTE specifying the relative positions of 
records located within another (Target) dataset. 

Instruction — A statement that specifies an operation and the values or locations of its 
operands. 

Iterate — To repeat. 

Keystation — A collection of hardware components accessible to the operator of a computer 
system which allows selection of, and interaction with, an application. The collection of 
hardware includes at least a keyboard and a screen. 

Keywords — Predefined names recognized by the compiler to identify a particular access 
parameter for definition or reference. 

Labeled Volume — A volume whose name is recorded on the medium in such a way as to be 
readable by the computer system. 

Line Number — A number associated with a line in a printout or display. 
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List — An ordered collection of data items. 

Literal — A symbol or a quantity in a source program that is itself data, rather than a reference 
to data. 

Loading — The process of transferring an application from an external medium to a computer 
system's memory. 

Mask — A pattern of characters that is used to control the retention or elimination of portions 
of another pattern of characters. 

Normal Condition — The occurrence of the primary anticipated result of a function. 

Notes File — A dataset produced by the compiler which contains summary information about 
the compilation and notes of detected error messages (if any). 

Object Code — Output from a compiler or assembler which is itself executable machine code 
or is suitable for processing to produce executable machine code. 

Offset — The number of measuring units from an arbitrary starting point in a record, area or 
control block, to some other point. 

Parameter — A variable that is given a value for a specific purpose or process. 

Peripheral Device — A part of the computer system external to the CPU and RAM, e.g., 
magnetic tape drive and diskette drive. 

Physical Record — A collection of bits that are physically recorded on the storage medium and 
which are read or written by one access to the device. 

Protected Field — A display field in which the operator can enter or modify data only under 
specific application conditions. 

Random Access — To obtain data directly from a storage location based on a key or address. 
Also called Direct Access. 

Record — A group of related fields of information treated as a unit by an application program. 

Serial — Occurring successively in time, or by physical position. 

Sequential — Occurring in a logical order not necessarily related to physical position. 

String — A sequence of entities such as characters or physical elements. 

Subroutine — A group of statements performing a specific function that may be performed as 
often as necessary. 

Target Dataset — A dataset consisting specifically of application data referenced through one 
or more index datasets each of which defines an organization for the target dataset. 

Unit — An addressable device attached to a computer system. 
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Volume — A physical instance of a medium (e.g., one diskette, one reel of tape). 

Volume ID — The name recorded on a Labeled Volume. 

VTOC (Volume Table of Contents) — The volume resident directory for the datasets 
recorded on the volume. 

Zero Fill — To character fill with the representation of zero. 
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APPENDIX G: CHECKDIGIT ALGORITHMS 



A check digit, which is placed in the unit's position of a self-checking number, is developed by 
calculations made on the base number (the original number without the check digit). The 
calculated digit is then included with the base number to create the self-checking number. When 
a self-checking number is entered into the system, the calculations originally performed are 
repeated, and the generated digit is compared to the check digit in the number entered. If the 
numbers are not identical, a check digit error occurs and the error indicator is set. 

The system calculates the check digit using either,the Modulus 10 or Modulus 11 Algorithm. 

MODULUS 10 ALGORITHM 

The operation for Mod 10 is as follows: 

1. Ignoring the check digit, multiply the base number's unit's position, and every alternate 
position moving right-to-left, by two. For example, 

4 6 9 2 

x2 x2 



12 4 

2. Add the digits of these products to the digits of the base number which were nor multiplied 
by two. 



4+1 + 2 + 9 + 4 = 20 



3. Divide this sum by 10: 



10 I 20 
20 

remainder 

4. This remainder (0) is the offset. 

5. Using the offset in the table below, a zero offset designates a check digit of zero (0). 





MODULUS 10 CHECK DIGITS 


Offset 
Check digit 


0123456789 
0987654321 
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MODULUS 11 ALGORITHM 

The operation for Mod 11 is as follows: 

1. Ignoring the check digit, multiply the unit's position of the base number by two, the tens 
position by three, the hundreds position by four, and so on. Continue this procedure up to 
multiplication by seven (if the number contains that many digits), then begin multiplying by 
two again. 

4 6 9 2 
x5 x4 x3 x2 



2. Add the products to each other. 



3. Divide the sum by 11: 



20 24 27 



20 + 24 + 27 + 4 + = 75 



6 

ii rw 

66 
9 remainder 



4. The remainder nine (9) is the offset. 

5. Using the offset in the table below, a nine offset designates a check digit of 2. 





MODULUS 11 CHECK DIGITS 


Offset 
Check digit 


0123456789 10 
0X98765432 1 



Note that a remainder (offset) of one (1) corresponds to an X which is stored as X'FF'. This is 
considered an illegal check digit. 

For both algorithms, numerals through 9 and all other EBCDIC characters with the values 
through 9 in the low-order hex digit are totaled by the low-order hex digit value. All other 
characters are totaled as the value zero. 
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APPENDIX H: INSTRUCTIONS FOR THE MOBOL COMPILER 

The MOBOL Compiler is an MDS-supplied software package which converts user-written 
source programs into object programs. The Compiler is provided on diskette. 

The MOBOL Compiler needs three datasets which can be allocated via the MDS DSKETTEU 
program. (Refer to the MDS Series 21 Release 7.0 Operator's Guide (Form No. M-2611) for a 
discussion of this program.) 

They are: 

• SOURCE — Input statements written by the user in MOBOL language. 

• OBJECT — The executable MOBOL program, output by the Compiler. 

• NOTES — Syntax errors in source statements, detected during compilation. Using an 

MDS-supplied utility called MOBOLIST, these error or warning messages 
can be merged with the original input statements to produce an annotated 
source listing on a printer or display screen. 

The allocation requirements of SOURCE and NOTES are decided by the size and complexity of 
the source program, while the OBJECT requires a minimum of 300 records. The user is 
responsible for satisfying the minimum allocation requirement. 

NOTE: The MOBOL Compiler is prohibited from more than one operator access at a 
time. 



COMPILER OPERATION 

1. Controller — POWER On. 
Operator Station — Power ON. 

2. Insert the Library Diskette containing the MOBOL Compiler. 

NOTE: If Library Diskette has been previously loaded, select SIGN OFF from the 
Function Selection Display; otherwise, press RESET button on Controller Con- 
sole to load Library Diskette. 
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3. Wait for the Program Selection Display to appear on the display screen. 



DISKETTE UNIT = 1 VOLUME = LIBBLD 



Dl LOADER 


OS 


EXEC 


Q3 PX(3 


Q4 MOBOL 


DS 




UL 


Q7 


Dfl 




m 


ID 


11 




IE 


13 


m 




IS 


lb 


17 




lfl 


n 




o 





ENTER PROGRAM NUMBER: ■■ 



4. Key the two-digit selection number for MOBOL Compiler; then press ENTER. 
"LOADING MOBOL" appears briefly, followed by the Data Set Display when loading is 
complete. 



MOBOL 



MESSAGES 



DATASET 
NAME 



VOLUME 



SOURCE ///////////////////////// 
OBJECT ///////////////////////// 
NOTES ///////////////////////// 

PRESS ENTER 



messages — presents exception conditions while searching datasets as explained in 

Step 7. 
dddddddd — dataset-name. 
www — Volume ID. 
u — device unit number. 

All these fields are first blanked by the Compiler. 
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5. The order of keying the fields is arranged as follows: 

1. SOURCE dataset-name 

2. OBJECT dataset-name 

3. NOTES dataset-name 

4. SOURCE Volume ID 

5. SOURCE unit no. 

6. OBJECT Volume ID 

7. OBJECT unit no. 

8. NOTES Volume ID 

9. NOTES unit no. 

But the operator can use the two field move keys ( -*\ and \t- ) to change the order of 
input, or use the HOME key to position the cursor to the first field (i.e., SOURCE dataset- 
name). 

6. After the three dataset-names have been defined, the operator can press the ENTER key 
any time to signal the end of input. Then, the Compiler tries to locate the dataset-names on 
the volumes of the devices. If the unit number is left blank by the operator, the search 
starts with the lowest numbered unit and proceeds sequentially through all the units or 
until the dataset is found. Similarly, if the Volume ID is left blank by the operator, the Com- 
piler looks for the first volume containing the requested dataset-name. 

7. If a dataset can be found, its Volume ID and device unit number are temporarily fixed and 
are used to replace the blank volume or unit (if any) on the display; if not found, an error 
message is displayed in the message field. For instance, the message: 

"SOURCE OBJECT — NOT FOUND" 

is displayed if neither can be found. Only under the condition that the search for all the 
datasets succeeds, the Compiler proceeds to Step 8; otherwise Step 5 is re-entered; 
meanwhile, all the temporarily fixed datasets are unfixed and subject to changes. How- 
ever, the operator can use some of them as inputs again simply by leaving them on display. 

8. All three temporarily fixed datasets become permanently fixed (with the exception 
stated in Step 9) and the compilation takes place. The Compiler also presents the MOBOL 
Compilation Display, which remains active during the compilation process. 
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riOBOL 



COMPILE PHASE = ppppp 
SOURCE STATEMENT = nnn 



SOURCE = dddddddd 
OBJECT = dddddddd 
NOTES = dddddddd 



vvvvvv 
vvvvvv 
vvvvvv 



D RESS SEL IIODE TO TERMINATE 



PPPP 



nnn 

dddddddd 

vvvvvv 

uuu 



the current compile phase is presented as one of the 

following: 

DATA: processing the Data Definition Section 

START: wrap-up of data definitions 

CODE: processing the Execution Section 

BUSY: compile wrap-up 

CAT: searching for concatenated source file 

the number of the current source statement being 

compiled 

data set -name 

Volume ID 

device unit number 



Pressing SEL MODE terminates the compilation prematurely, and returns the Program 
Selection Display. The contents of both OBJECT and NOTES from this termination is 
unpredictable. 

9. If the Compiler reaches EOD (end-of-data) prior to detecting an END source statement, it 
assumes that there are multiple source datasets. The Compiler then searches for the next 
SOURCE dataset. The new dataset-name is generated by using the previous dataset- 
name with the EBCDIC value of its rightmost character incremented by 1. The Volume ID 
and unit number of the new dataset are considered as unrestricted in this case. If the new 
dataset is found, its name, volume, and unit number reflect on the display accordingly; 
then, the compilation continues with the new SOURCE dataset. 

NOTE: The Compiler will wait for either the proper dataset to be mounted or the depression 
of SEL MODE to terminate. 

Since the number of SOURCE datasets for one compilation is not limited, a SOURCE 
program can consist of a multi-volume dataset (with names incremented as in 
DATASETA, DATASETB, et.) on different device units. 
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10. The Compiler returns control to the system upon completion. The system displays the 
Program Selection Display for next operation. The pertaining syntax errors diagnosed by 
the Compiler can now be printed with or without the SOURCE statements via an MDS- 
supplied utility called MOBOLIST. (For discussion of MOBOLIST, see Appendix C.) If no 
error message is given, the OBJECT is ready for execution. 

Error messages for the MOBOL Compiler (listed below) are displayed on line 2 of the dis- 
play screen in the following format: 

©WDD 



DD 


DESCRIPTION 


09 — 


Terminal lockout 


10 - 


I/O error (source file) 


11 


I/O error (note file) 


12 


SYMBOL TABLE OVERFLOW 


13 - 


Label Reference overflow 


14 


I/O error (object file) 


15 — 


Symbol table space not allocated 


16 — 


Call your MDS service representative 


17 


I/O error (patch file) 


18 


Dictionary file overflow 
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APPENDIX I: SYSTEM ERROR MESSAGES THAT OCCUR DURING 
EXECUTION OF USER-DEFINED APPLICATIONS 



System error messages are displayed on line 2 of the display screen in the following format: 

© ##J#JDD 

(Column 1) 

DP DESCRIPTION 

02 An index variable has been assigned an out of range value. 

04 No error statement number was coded on an I/O operation and an error 

was encountered. 

19 The processing routine assigned a value to FLDNUM that is greater than 
FLDCOUNT; no RENTER or KVERIFY is active or there is no ERR clause 
in that statement. 

20 No error statement number was coded in a READSCREEN operation and 
the LINE parameter specified is beyond the maximum limit for the display 
screen. 

21 During System Generation, a 480 character screen size was specified and a 
1920 character screen size is required. 

22 A directed RESUME field-name is not defined in the currently active KET 
and there is no ERR clause in the RENTER or KVERIFY statement. 

If a system error message not listed above is displayed, contact your local MDS representative. 



1-1 



INDEX 



ACCESS 7-3 

ACTUAL 7-4 

Alignment 5-8 
without filling 5-10 

Alphanumeric 
strings 5-6 

AND 

syntax 6-29 

BACKSPACE 7-23 
syntax 6-87 

BINARY ARITHMETIC 
STATEMENTS 6-23 - 6-27 

BINARY 
syntax 6-33 

BINARY ADD 
syntax 6-24 

BINARY DIVIDE 
syntax 6-27 

BINARY MULTIPLY 
syntax 6-26 

BINARY SUBTRACT 
syntax 6-25 

BLKLEN 7-4 

BOOLEAN STATEMENTS 
syntax 6-28-6-31 

BOUND 8-2 

CASE 
syntax 6-67 

CHANGE 8-4 

CHECK DIGIT 
syntax 6-106 

CHECKEOD 7-13 
syntax 6-79 

CHECKFORMS 7-25 
syntax 6-92 



CLOSE 7-16 
syntax 6-76 

COMPATIBLE CHANNEL 
I/O OPERATIONS 7-29 

OPEN 7-29 

READ 7-30 

SENDEOF 7-31 

WRITE 7-32 

CLOSE 7-33 

COMPCHAN 7-29 

COMPRESS 
syntax 6-45 

COMPUTED GO 
syntax 6-66 

CONDITIONAL PHRASES 
syntax 6-57 

alphanumeric 6-58 
binary 6-60 
bit 6-61 
decimal 6-62 
sort 6-64 
computed go 6-66 
case 6-67 
error test 6-68 

CONDITIONALS 
syntax 6-57 

CONTROL 8-4 

CONTROL STATEMENTS 6-54 - 6-68 

CONTROL KEYS 8-11 

CROSS REFERENCE PROGRAM D-l 

CRTSIZE 5-19 

CURFLD 8-3 

CURRENCY 6-42 

Data Definition Statements 
formats 2-2, 2-3 
requirements 2-3, 5-1 

DATASET 7-6 

DECIMAL ARITHMETIC 
STATEMENTS 6-17 - 6-22 



DECIMAL 
syntax 6-34 
ADD 6-19 
DIVIDE 6-22 
EQUATE 6-18 
MULTIPLY 6-21 
SUBTRACT 6-20 

Decimal Numbers 5-6 

DECOMPRESS 
syntax 6-49 

DELETE 7-19 
syntax 6-80 

DISK I/O OPERATIONS 7-8, 7-9 
OPEN 7-10 
READ 7-11 
READLOCK 7-13 
CHECKEOD 7-13 
WRITE 7-14 
RELEASE 7-15 
SETEOD 7-15 
FREESPACE 7-15 
CLOSE 7-16 

DISKETTE I/O OPERATIONS 7-8, 7-9 

DISPLAYS. See Screen displays. 

EDITING STATEMENTS 6-32 - 6-53 

EJECT 4-1 

END 4-2 

ENTRY 
syntax 6-71 

EOD 7-4 

EOE 7-4 

EQU 5-28 

ERRCODE 7-4 

ERROR 8-22 
syntax 6-101 

ERROR MESSAGES. (See Series 21 Display Messages 
Manual M-3925.) 

ERROR TEST 
syntax 6-68 



EXECUTION Statements 2-2, 2-4 
requirements 2-4, 6-1 

EXIT Parameter 5-26 
Statement 6-73 

Explicit Field Size 5-7 

Fields 

non-sequential 5-11 

sequential 5-11 

without Initial- Values 5-9 

Field Specifications 5-12, 5-13, 5-24 

FIELD MODE 8-7 

File 5-3 

FILL 
syntax 6-14 

Fill Characters 
alignment of 5-8 
non-graphic 5-14 

FILTER 8-2 

FLDCOUNT 8-3 

FLDNUM 8-3 

FORMS 7-4 

FREESPACE 7-15 
syntax 6-81 

GETTIME 
syntax 6-107 

Guide messages/specifications 5-22 

HEX 
syntax 6-52 

Indexed Data 6-6 

INPUT/OUTPUT OPERATIONS 7-1 

INSERT 

syntax 6-82 

IOD 5-2, 5-3 

I/O Statements 7-1, 7-2 

syntax 6-74 



I/O Execution Statements by Device (Table) 7-2 

I/O Statements in the Data Definition Section 7-1 

I/O Statements in the Execution Section 7-2 

JUSTIFY LEFT 
syntax 6-35 

JUSTIFY RIGHT 

syntax 6-36 

KENTER 8-5 
syntax 6-97 

KEYBOARD 8-2 

KEYSTROKE 8-4 

KEYVALUE 7-3 

KEYWORDS (See also specific keyword name.) 7-3 
Keywords By Device (Table) 7-8 

Keywords Used For I/O Operations (Table) 7-21 

Keywords Used In The Execution Section 8-3 

KET 5-18 

KETNUM 8-3 

K VERIFY 8-16 
syntax 6-98 

LINE 8-4 

Literal values, 

interpretation of 6-5 

MARK 7-5 
syntax 6-88 

MATCH 8-4 
MBLXREF D-l 
MCSEQ 8-2 
MISCOMP 8-2 

MOBOL CROSS REFERENCE PROGRAM D-l 

MOBOLIST C-l 

MOVE STATEMENTS 6-11 

MOVE LEFT AND FILL 
syntax 6-12 



MOVE LEFT, NO FILL 
syntax 6-15 

MOVE RIGHT AND FILL 
syntax 6-13 

MOVE RIGHT, NO FILL 
syntax 6-16 

NOLABEL 8-4 

Non-graphic 
fill characters 5-14 
hexadecimal strings 5-14 

Non-Indexed Data 6-8 

Non-sequential 5-11 

NOTE TYPE 8-3 

NOTIFY 8-23 
syntax 6-102 

NUMBER EDIT 
syntax 6-43 

NUMPAD 8-4 

Offset notation 5-9 

OPEN 7-10 
syntax 6-75 

OPERATION 8-2 

OR 
syntax 6-30 

OUTLEN 7-5 

Overall Record Areas 5-7 

PERFORM 
syntax 6-70 

PICTURE EDIT 
syntax 6-37 

POSITION 7-5 

PRINT 7-26 
syntax 6-93 



PRINTER I/O OPERATIONS 7-25 
OPEN 7-25 
CHECKFORMS 7-25 
SETFORMS 7-25 
PRINT 7-26 
WRITE 7-26 
CLOSE 7-26 

RANDOM INDEX ACCESS METHOD 
OPEN 7-18 
READ 7-18 
READNEXT 7-19 
READLOCK 7-19 
RELEASE 7-19 
DELETE 7-19 
WRITE 7-20 
INSERT 7-20 
CLOSE 7-20 

RCD 5-2, 5-5 
arrays 5-16 
statement formats 5-5 - 5-17 

READ 7-11, 7-18 
syntax 6-77 

READKEY 8-25 
syntax 6-104 

READLOCK 7-13, 7-19 
syntax 6-83 

READNEXT 7-19 
syntax 6-84 

READSCREEN 8-24 
syntax 6-103 

RELEASE 7-15, 7-19 
syntax 6-85 

REMAPS 5-29 

Remapping, Record 5-29 
format 5-29 
extended records 5-31 
indexed records 5-32 
normal records 5-30 
types defined 5-29 

Requirements 2-3, 2-4 

Data Definition Section 2-3 
Execution Section 2-4 

Reserved Words B-l 

RESUME 8-17 
syntax 6-99 
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RESUMERR 8-20 
syntax 6-100 

REWIND 7-23 
syntax 6-89 

REWINDLOCK 7-23 
syntax 6-90 

SAME 

syntax 6-109 

Screen displays 2-1 
designing 2-1 
error messages 2-1 
guide messages 5-22 
sample layout form 2-1 

SCREEN MODE 8-9 

Semantics Conventions 6-5 

SENDEOF 7-2 
syntax 6-95 

Sequential fields 5-11 

SEQUENTIAL INDEX ACCESS METHOD 7-17 

SETEOD 7-15 
syntax 6-86 

SETFORMS 7-25 
syntax 6-94 

SETTIME 
syntax 6-108 

SHIFT 8-4 
defined 5-25 

SIGNIF 8-2 

SKIPFILE 
syntax 6-91 

SLEW 7-6 

Source Program Structure 1-3 
example of 1-2 

SOURCE 
defined 5-26 

SPECIAL PURPOSE STATEMENTS 6-105 

START 4-2 



STATE 7-7 

Statement Syntax and Descriptions 6-1 - 6-112 

STATION I/O OPERATIONS 8-1 
Data Definition Keywords 8-2 
BOUND 8-2 
FILTER 8-2 
KEYBOARD 8-2 
MCSEQ 8-2 
MISCOMP 8-2 
OPERATIONAL 8-2 
SIGNIF 8-2 

Execution Keywords 
CHANGE 8-4 
CONTROL 8-4 
CURFLD 8-3 
FLDCOUNT 8-3 
FLDNUM 8-3 
KETNUM 8-3 
KEYSTROKE 8-4 
MATCH 8-4 
NOLABEL 8-4 
NUMPAD 8-4 
SHIFT 8-4 
TYPE/NOTE 8-3 
XCONTROL 8-4 

STATION I/O STATEMENTS 6-96 

STATUS 7-5 

STOP 

syntax 6-56 

STRING 

syntax 6-11 

SUBROUTING STATEMENTS 6-69 

Syntax and Descriptions, Statement 6-1 - 6-112 

Syntax Conventions 6-3 



TAPE I/O OPERATIONS 7-22 
BACKSPACE 7-23 
CLOSE 7-23 
MARK 7-23 
OPEN 7-22 
READ 7-22 
READLOCK 7-23 
REWIND 7-23 
REWINDLOCK 7-23 
SKIPFILE 7-24 
WRITE 7-22 

TXRGET 7-3 

TITLE 4-1 

TRANSLATE 
syntax 6-44 

TYPE/NOTE 8-3 

UNCONDITIONAL GO 
syntax 6-55 

UNHEX 
syntax 6-53 

UNIT 7-7, 8-4 

VERIFY 
defined 5-27 

VERTICAL FORMS UNIT 

VFU 7-27 

VOLUME 7-7 

WRITE 7-14 
syntax 6-78 

XCONTROL 8-4 

XFERLEN 7-5 

XFERSTATUS 7-5 

XOR 

syntax 6-31 
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